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To Christine 


Foreword 


This book is intended for people who have some knowledge of 
BASIC and wish to become more familiar with the Amstrad 
CPC 664/464. Its aim is to introduce the graphics capabilities of 
the Amstrad CPC 664/464 and demonstrate how to use them. 
There are a number of shorter program listings within the 
book that illustrate the ideas discussed within the various 
chapters. Also included are programming utilities to help you 
design your own graphics characters and experiment with the 
sound capabilities. During the course of the book, in sections 
at the end of each chapter, a long graphics game is built up in 
easy-to-follow stages. As the program builds up each new part 
added can be verified by running the program in its current 
state. It is hoped that by typing in the program in this way, 
many of the problems associated with typing in long program 
listings can be overcome, typing errors being much easier to 
find. Throughout the book, programming tips and hints are 
given to help you improve your programming techniques 
using the facilities of Amstrad CPC range BASIC. 

A problem that many people have after mastering the basics 
of BASIC is that of putting together a large program without 
getting lost in a tangle of program lines. One of the main aims 
of the book is to help in the design of long programs by 
looking at program structure and the way in which a large 
program can be practically constructed. Programming graphics 
games can be fun, it is also an excellent method of teaching 
programming skills as it is easy to see the effects of the 
program. Games programming is enjoyable but more, it can 
help in understanding BASIC and the computer. 


Steve Colwill 
March 1985 


Chapter One 


Basic ideas 


In this chapter: 
Program structure and structure diagrams 


Blocking structures and the use of flags 
WHILE.~...WEND, FOR.~..NEXT and GOSUB 
..-RETURN 


Binary and hexadecimal 
BINS, HEX$, STRS, & and &X 


Logical operators and their uses 
AND, OR and XOR 


An introduction to the game ‘Stranded’ 


Programming computers, either for fun or for business, is as 
much an art as it is a science. To many people the proof of the 
pudding is whether a program does what the programmer 
intended it to do, and obviously a program that does not work 
correctly is not much use to anyone! There are other factors, 
however, that should be considered: How readable is the 
finished program text? Can somebody other than the program- 
mer follow the program? This is quite important if the program 
is to be read (and hopefully understood) by another person, 
but equally, if you write a long and complicated piece of code, 
you may wish to come back to it in 6 weeks’ or 6 months’ time 
to make some changes. It can be very frustrating to come back 
to a program you wrote a while ago and find that it takes you 
several hours work to understand it again. If a program is 
written clearly, then these problems can be much reduced. 
Long programs are also easier to write and debug. For all these 
reasons, this first chapter is devoted to looking at methods of 
improving your programming style. 
1 


2 Game & Graphics Programming 
Program structure 


Whenever a programmer is faced with a programming prob- 
lem he (or she) can adopt one of two methods: he can start 
typing in code straight away at the keyboard, or he can sit 
down and try to think out the main jobs that the program has 
to do, before starting. One of the nicest (and the worst!) 
aspects of BASIC is that the structure of the language allows 
you to start typing in your program without having thought it 
out in advance. Most BASIC programmers have probably 
adopted this approach at one time or another. Almost 
inevitably, unless the program is very simple, you end up ina 
corner and have to use a liberal sprinkling of GOTOs to get 
yourself out of that corner. A program, not unlike the following 
extreme example may result: 


10 PRINT"WHAT A SILLY WAY" 

20 GOTO 50 

30 GOTO 60 

40 PRINT"DIFFICULT TO FOLLOW": END 

50 PRINT"TO WRITE A PROGRAM.":GOTO 30 
60 PRINT" IT MAKES IT TERRIBLY":GOTO 40 


Planning out on paper, or in your mind, what you want to 
do before you start can avoid tortuous structures like the one 
above. This does not necessarily mean planning out the 
program in minute detail, but identifying the major tasks, 
considering the jobs that go to make up each of the major tasks 
and so on. This approach is essentially one of thinking out the 
main building blocks of the program and then assembling 
them to make the complete program. The following program is 
written in a very structured way, and is a simple graphics 
program to doodle on the screen. 


1666 REM ****® doodle program *#** 
1616 GOSUB 2660@:REM set up routine 
1626 REM #*® main loop ## 

1636 WHILE INKEYS$="" 

1646 GOSUB S@6@:REM draw a line 
1656 WEND 

1666 END 

1676 : 
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266G REM **** set up S/r X##* 

2616 MODE &@ 

202@ BORDER &@ 

2636 GOSUB 340@:REM clear screen 

2644 GOSUB 4666:REM move to start 

2658 GOSUB 6@66:REM set up timers 

2666 RETURN 

2676 : 

SGGG REM **** clear screen S/r HER* 

3616 CLS 

3626 RETURN 

3636 : 

4666 REM **** move ta start position s/r 
HERE 

410 MOVE 366,266 

4020 pencol=INTCRND( 1) #15) +1 

4636 inkcol=INTCRND(1)0*275+1 

4646 INK pencol,inkcol 

4456 RETURN 

4666 : 

5SGGG REM **#* random draw s/r x#2* 

5@1@ x=10-INTCRND(1)#26>9 

5@2@ y=16-INTCRND( 1926) 

546346 DRAWR x,y,pencol 

5644 RETURN 

S456 : 

6666 REM ##** set up interrupt timers s/ 
Ph HRRE 

6616 EVERY 264,60 GOSUB 466@:REM set star 


t 

6624 EVERY 2666,1 GOSUB S@6G@:REM clear s 
creen 

663G RETURN 


The actual details of how this program works needn’t worry 
us for the moment, we are more concerned with the way in 
which it is written. Each main task in the program has been 
isolated and arranged in its own short block of code as a 
subroutine that can be called. The idea of the program is to 
doodle out from the middle of the screen randomly, using 
randomly selected colours. The first task of the program is to 
select the screen mode and border colour, clear the screen and 
set up the Amstrad CPC range interrupt timers (much more of 
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all these later!). The subroutine at line 2@00 deals with all 
these tasks. Some are done directly by this subroutine, but 
others are done by calling other subroutines, such as the clear 
screen subroutine. Having completed all the preparation then 
the program goes into a loop that doodles randomly away from 
the centre until a key is pressed. Occasionally these doodles 
will be interrupted to either move back to the centre of the 
screen, or less frequently, to clear it. These two features of the 
program are controlled by BASIC interrupts. 

The main lesson to be drawn from looking at the way this 
program is written is that, having identified the main jobs that 
have to be done, the BASIC code needed to carry out these jobs 
can be held as separate blocks in the form of subroutines. 
Whenever a GOSUB is used, a REM statement follows it to say 
what the subroutine will do, making the program easier to 
read. REMs are also used as titles for each subroutine, 
describing its purpose. Coming back in 6 months’ time to read 
and follow the flow of a program written like this has to be 
easier than following a series of GOTOs! 

A convenient way to map out a program structure is to use a 
structure diagram. Such diagrams do not show the precise flow 
of control but show how the various building blocks of the 
program fit together. A structure diagram for the ‘doodle’ 
program looks like this: 










Set up 
interrupt 
timers 


Random 
draw 











Figure 1.1 
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The diagram is almost self-explanatory. Each task is drawn 
as a box, larger tasks appearing higher in the diagram. The 
sausage-shaped box is used to indicate that some loop is used. 
An idea of my own is to use dotted lines to show subroutines 
that interrupt other routines, the dotted lines here showing 
that ‘clear screen’ and ‘move to start point’ interrupt the 
WHILE...WEND loop every so often. 

This example program is highly structured. Slightly more 
initial effort is required to produce such a program and if you 
have not tried to write programs in this way before, the extra 
effort may, on first glance, not seem worth while. It does not 
take long, however, for this method to become second nature, 
and the long-term improvement in your analytical program- 
ming skills will make the extra effort well worth while. Of 
course, there is a large gap between the first example and the 
second, and there are degrees of structuring. Given the 
limitations of BASIC in terms of the ease of structuring, it is 
not always possible to avoid the use of GOTO, the guiding 
principle should be to minimise its use. 


Block structures and the use of flags 


Adopting a structured approach to BASIC programming 
involves the sensible use of the structures that Locomotive 
BASIC gives us. These are FOR...NEXT,WHILE..~.WEND 
and GOSUB...RETURN. All the advice given on structuring 
so far has not been obligatory, but it is important that the 
following rules with regard to these three structures are 
obeyed, if you are going to keep your Amstrad CPC 664/464 
happy. All of these structures have a definite entry point (FOR, 
WHILE or the first line number used in the subroutine call) 
and a definite exit point (NEXT, WEND or RETURN). Never 
write program sections like these: 


10 FOR I= 1T0 10 
20 X=RND(1)*40 

30 IF X>3@0 THEN 100 
40 NEXT 1 
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5 agate 

10 WHILE a$=""" 

30 aS=INKEYS 

30 X=RND(1)*40 

40 IF X>3@0 THEN 100 


50 WEND 

10 GOSUB 1000 
20 etc 

900 END 


1000 REM ** SUBROUTINE xx 
1010 X=RND(1)*40 

1020 IF X>30 THEN 100 
1030 RETURN 


The fault common to all of these sections of code is that 
when the terminating condition is reached (the reason that the 
program moves out of the structure) the program does not pass 
through the proper exit point, but jumps out using GOTO. 
This is not just bad style but, if repeated often enough, will 
cause your computer to hang up. The reason for this is rooted 
in the way that the Amstrad CPC range (and many other 
makes of computers) operating system works. Each of these 
structures has the ability to ‘remember’ where it started from. 
For example, when the computer reaches NEXT, it knows 
which line to loop back to for the next FOR statement. It 
remembers because when the computer meets the FOR 
statement it stores away its position in the program in a special 
area of memory called the stack. When NEXT is reached, the 
operating system pulls this information back off the top of the 
stack, so that it can find its way back to the FOR statement. 
After repeating the FOR...NEXT loop a given number of 
times the computer must come to NEXT for the last time to 
pull the information off the stack and leave it clear for future 
use. The problem with the above example is that the program 
may never reach that final NEXT, because if X is greater than 
30 then the loop will be jumped out of, and the positional 
information about FOR will not be cleared from the stack by 
going to the final NEXT. Do this a few times and the stack will 
rapidly fill up and cause the whole system to crash. 
WHILE...WEND and GOSUB...RETURN work in a simi- 
lar way. 
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To get around this problem we can still test for conditions 
within a loop or subroutine as above, but leave the branching 
part until we have exited the structure correctly, by passing 
through NEXT, WEND or RETURN. To do this we use a flag to 
show whether the condition tested for was true. We can then 
test the value of the flag to make our jump after leaving the 
loop. The FOR...NEXT loop example can be handled as 
follows: 


5 flag=0 

10 FOR I=1 TO 10 

20 X=RND(1)4%40 

30 IF X>3@ THEN flag=1 : I=10 
40 NEXT I 

50 IF flag=1 THEN 100 


In this example the value of a variable, f | ag, is initially set 
to 0. If at any stage during the looping process the value of X 
exceeds 30 (the condition tested for) then f lag is set to 1. In 
addition the loop counter I is set to the upper limit of the loop, 
namely 10. On meeting NEXT with I set to 10, the operating 
system will think that the looping process is finished and pass 
on to the next line. At this line the value of f Lag can be tested 
and a branch made accordingly. If we wanted to know for 
some reason the value of I, when X first exceeded 30 then we 
would need to amend line 30@ as follows: 


30 IF X>30 THEN flag=1:count=I : I=10 


Here the current value of I is stored in another variable, 
count, before exiting the loop. If X>30 on the first pass 
through the loop then we do not waste time by continuing to 
execute the loop a further nine times using this method. 

WHILE...WEND and GOSUB...RETURN structures 
can be dealt with in a similar way. 


5 flag=@:a$="" 

10 WHILE a$="" 

20 aS$=INKEYS 

30 X=RND(1)4%40 

40 IF X>30 THEN flag=1 : a$="dummy" 
5@ WEND 

60 IF flag=1 THEN 100 
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10 GOSUB 1000 
20 IF flag=1 THEN 100 


30 etc 

900 END 

1000 REM SUBROUTINE 
1010 f lLag=0 


1020 X=RND(1)*40 
1030 IF X>3@ THEN flag=1 
1040 RETURN 


Some readers may not be familiar with the 
WHILE...WEND structure used by Amstrad CPC 664/464’s 
Locomotive BASIC. This is an additional looping structure, not 
normally found in BASIC, although it does bear some relation 
to BBC BASIC’s REPEAT...UNTIL structure. The 
WHILE...WEND structure allows the section of code be- 
tween the WHILE and the WEND statements to be repeated 
until the condition stated as part of the WHILE command 
becomes false. In the above example, the WHILE...WEND 
loop will continue until a$ becomes something other than the 
null string, ''"'. In this case the loop will be terminated by the 
press of a key on the keyboard. Notice how the loop can be 
artificially terminated by setting a$ to "dummy" within the 
loop. It is worth noting that if the condition stated at WHILE is 
false then the code that follows it will not be done, but control 
will pass directly to the code following WEND. If the condition 
is not true when WHILE is first met then the code inside the 
WHILE. ..WEND loop will never be used, as the terminating 
condition is tested before the code is done. For this reason it is 
often a good idea to ensure that the terminating condition is 
true before entering the loop structure. That is the purpose of 
setting a$=""" in line 5 of the WHILE... .WEND example. 


The binary and hexadecimal systems 


Just as humans work best using the decimal system (base 10), 
computers prefer to use the binary system (base 2) for their 
internal workings. Most of the time, the fact that the computer 
is fundamentally working in binary is concealed from the 
BASIC programmer by the computer’s BASIC interpreter and 
operating system. These two programs, that are always present 
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in the machine, carry out all the necessary conversions from 
decimal to binary, before actually using the values produced. 
There are, however, occasionally times when a knowledge of 
the binary system is useful to the BASIC programmer. For 
those readers who wish to progress to machine-code program- 
ming an understanding of binary is essential. A brief maths 
lesson is therefore in order for those who do not already know 
what binary is and how to carry out conversions between 
binary and decimal. 

In the decimal system we use ten different numbers or 
digits, 0,1,2,3,...,8and 9, and we create larger numbers by 
arranging these numbers in columns. For example, the number 
4283 could be written with these column headings: 


Th HoT U 
4 eo Bh 8 


In the spoken form of this word the value of each column is 
indicated: ‘four thousand, two hundred and eighty-three’. The 
column headings are based on the number ten. 


Units 1 — 1 
Tens 1x10 = 10 
Hundreds 1X10x10 = 100 
Thousands 1x10xX10x10 = 1000 
etc. 


To obtain the value of each new column heading towards the 
left of the number we simply multiply the value of the 
preceding column by 10. 

The binary system works in a similar way, but only uses two 
digits, 0 and 1. Here each new column heading is found by 
multiplying the preceding one by 2, so column headings for 
binary are: 


Units 1 = :F 
Twos 1x2 = 2 
Fours 1X2x2 = ‘4 
Eights 12K 2K? = 8 
Sixteens 1X2xX2x2x2 = 16 
Thirty-twos 1X2X2xX2x2x2 = 32 
Sixty-fours 1X2X2X2X2xX2Xx2 = 64 


One-two-eights 1xX2x2x2x2x2x2x2 
etc. 


| 
ra 
NO 
CO 
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The binary number 11010001 can be written with its column 
headings like this: 


128. 64-32-16: 8 4-2 0 
a. te Oe Lh ee Oe 


Its decimal equivalent is easily found by adding up the 
column headings where a 1 appears as follows: 


1xX128 = 128 
1x64 = 64 
1x16 = 16 
1xU = 1 
Total = 209 


Converting from decimal to binary can be done by repeated 
division by 2, using the remainders to make up the binary 
number. 


2) 209 
2)104 r 1 
2) 52 r 0 
2) 26 r 0 
2) 13 r 0 
2)_6 r 1 
2)_3 r 0 
2) dee 
2) <r i =| 
11041000 1 


Figure 1.2 


Most binary numbers that you will ever have to deal with on 
the Amstrad CPC range are either eight binary digits (or one 
byte), like the one above, or 16 binary digits; the term ‘binary 
digit’ being shortened to ‘bit’. As you can imagine, a group of 
16 ones and zeros is rather difficult to take in, so often binary 
numbers are written in as hexadecimal numbers, or in ‘hex’. 
This system works by taking groups of four digits together and 
replacing them with a single digit, according to this table: 
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Binary 
pattern 


0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 
1111 


Hex digit 























MMOUONDWPOBANADANAAWNHHO 





Notice that after nine we run out of single digits to use, the 
first six letters of the alphabet are therefore used instead. The 
number 209, or 11010001, is therefore &D1 in hex; the 
ampersand sign (&) being used to indicate the fact that the 
number is in hex. 

Locomotive BASIC provides several facilities to help with 
conversions between decimal, binary and hexadecimal. 

BINS and HEX$ allow you to let the computer do the 
hard work of converting from decimal to binary or hexadeci- 
mal. 

PRINT BIN$(209) will give 11010001 

PRINT HEX$(209) will give D1 
The number of digits in the final conversion can also be 
specified by adding a second number inside the bracket: 

PRINT BIN$S(209,10) will give 0011010001 

PRINT HEX$(209,4) will give 00D1 
These conversions can be held and manipulated as string 
variables. Conversion from hex or binary back to decimal can 
be done in two ways: firstly, by conversion to a decimal 
number, 

A=&X11010001 or PRINT &X1101001 

A=&D1 or PRINT &D1 
or, secondly, as a decimal string variable, 

AS=STRS$(&X11010001) 

AS=STRS$(&D1) 
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The Logical operators AND, OR and XOR 


The signs we use in arithmetic, +, —, X, +, etc., are known as 
arithmetic operators because they do some kind of arithmetic 
operation to the numbers on either side of the operator (the 
numbers are known as operands). Just as there are set rules for 
the arithmetic operators (everyone had to learn their times 
tables) so there are special rules that govern a different set of 
operators that are peculiar to logic and computers, the logical 
operators. You may well have seen expressions like this in 
computer programs: 


X=39 AND 52 


Here AND does not mean 39 ‘plus’ 54 but has a special purpose 
in computer applications. Try typing in PRINT 39 AND 52. 
The result is rather curious: 36. To understand how AND works 
we must look at the binary equivalent of 39 and 52. As 
eight-bit binary numbers 39 and 52 are as follows: 


128 64 32 16 8 4 2 U 

39 = O 0 1 0 011 «41 

AND 52. = _0 QO dt 1 OO 1 0 O 
36 = _0 Oe AO A el 0) 


If you look at each column of bits in turn you may begin to 
understand how the value of each bit in the answer is arrived 
at. The only place where a bit in the answer is 1 is if both bits 
above it are 1. In other words, if the bit in the first number is 1 
and the bit in the second number is 1 then the result will be 1. 

If you think about it, there are four possible combinations of 
a pair of bits. If for each combination we write down the result 
of doing an AND, we get a table known as a truth table: 


00 


01 
10 
11 





Try typing PRINT 39 OR 52. The result is 55. Again to find 
out how OR works we have to look at the bit patterns: 
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128 64.3016 8 2 2° U 
ce am Se | as CS 0 a 
OR be. 20 0 Ae OO 
85. ep On. ee a Oe at 


Again by looking at each column in turn we can work out 
what the rule for OR is. Rather than both bits in the operands 
having to be 1 to make the answer bit 1, one, or the other, or 
both of the operand bits have to be 1 to make the answer bit 1. 
We can summarise this in a truth table for OR: 


Bina [ on | 


00 





In everyday English the word ‘or’ can, in fact, have two 
meanings. The first meaning is like the logical OR we have just 
looked at. ‘If Jack or Jill can go, I will go to the match.’ In this 
case the ‘or’ means if Jack or Jill or both people can go, than I 
will go to the match. In other words the possibility of both 
people being able to go is included. This is the so-called 
‘inclusive or’. Another use of the word ‘or’ exists in everyday 
English. You can be tall or short, or rich or poor, but you can’t 
be both. Here the possibility of both things occurring is 
excluded. This is an example of the use of the ‘exclusive or’ 
often abbreviated to XOR. The result of 39 XOR 52 is 19. Try 
drawing out the binary patterns for these numbers again and 
ensure that the following truth table for XOR is true: 


aia [xR | 


0 
ot 1 
{ 
0 





10 
11 


Later we shall see how these three logical operators AND, OR 
and XOR can be used to produce special high-resolution 
plotting effects, but let us now look at their uses in normal 
BASIC programs. The logical operators are normally used for 
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two purposes. The first, and probably more familiar purpose, 
is their use within condional IF...THEN type statements. 
We can use statements like this: 


IF X<3 AND Y>2 THEN PRINT X,Y 


Here we have two statements X<3 and Y>2. Both statements 
can be mathematically true or false. If we think of a statement 
that is true as being represented by 1 and a statement that is 
false as being represented by 0 then we can see how the logical 
AND can be applied. The BASIC command given above is 
really saying: 


IF<statement 11s true>AND <statement2is 
true> THEN <action> 


In other words, the action will take place if, and only if, both 
statements are true. This is obviously the same as: 


TRUE AND TRUE = TRUE or 1 AND 1 = 1 


We can see the effect of using such a statement by using an 
example of two FOR. ..NEXT loops: 


10 FOR X=1T04 
2@ FORY=1T04 
3@ IF X<3 AND Y>2 THEN PRINT X,Y 


4@ NEXT Y,X 
The output from this program is, predictably: 
1 3 
1 4 
2 33 
2 4 


Replacing line 3@ by IF X<3 OR Y>2 THEN PRINT X,Y 
will produce these results: 


NNN RRB 
WNrR PWN PR 
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BmwWN 
Pwo RP WP 


4 


Logical operators can be placed together on the same line 
such as: 
30 IF X=1 OR X=2 AND Y=3 THEN PRINT X,Y 


Here the result will be: 


RRP PR 
PWN 


2. 3 


Just as in an arithmetic expression there is an order in which 
operations like multiply and add are done, e.g. in 3 + 4 X 7 
then ‘x’ is done before the ‘+’, there is an order of precedence 
with logical operators. From the output produced above it 
seems as though the computer is really thinking of the 
statement as: 


IF X=1 OR (X=2 AND Y=3) THEN PRINT X,Y 


where the brackets indicate the operation to be done first. In 
fact running the program with these brackets in place will 
produce the same results. If no brackets exist, then AND is 
done before OR (just as ‘xX’ was done before ‘+’ in the 
arithmetic example). If we want to force the computer to do OR 
before AND we must use brackets. Changing line 30 to IF 
(X=1 OR X=2) AND Y=3 will produce the results: 


a er 
23 


Logical expressions can also be used with the WHILE 
statement as in this example: 


5 flagi=0:flag2=0 

10 WHILE flag1=@ AND flag2=0 

20 GOSUB 1000:REM SELECT RANDOM NUMBER 
30 WEND 
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40 If flag1=1 THEN PRINT"Greater than 30" 
ELSE PRINT"Less than 10" 

5@ END 

1000 REM xxxx SELECT RANDOM NUMBER xuxx 
1010 flagi=0:f lag2=0 

1020 X=RND(1)440 

1030 IF X>3@0 THEN flag1=1 

1040 IF X<10 THEN f lLag2=1 

1050 RETURN 


This short program uses a subroutine that selects a random 
number before RETURNing to the main program. The sub- 
routine is called from within a loop. Two flags are used to 
signal if the number selected is greater than 30 or if it is less 
than 10. The point of the example is to show the use of AND in 
the WHILE statement. This loop will only go on repeating 
until one or other of the two flags is set to 1. Translated into 
English line 18 means ‘keep doing the loop while both flags 
are zero’. 

The second use of AND and OR is to affect single bits within 
a byte, without altering the values of other bits within the 
byte. As the Amstrad CPC range’s Locomotive BASIC does 
such a good job of protecting the user from the fundamental 
binary structure of the machine, by providing an excellent 
version of BASIC, the occasions on which this is necessary are 
rare, but there are times when an advanced BASIC program- 
mer will want to start POKEing and PEEKing around in the 
machine’s memory when this technique is useful, as well as 
proving indispensable to the machine-code programmer. Let 
us say that we want to set bit 2 of aspecial byte in memory to 1, 
without disturbing the other bits. The initial contents of this 
memory location might be 178: 


BieNG, 97>. 2 4 0 4 By As 20 
178 1 Oh a he Oe. Oe 


To set bit 2 to 1 without changing the other bits we must do 
the following in BASIC: 


POKE memory,PEEK(memory) OR 4 


Looking at the bit patterns we can see what happens: 
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Bitno. 7 65 43 210 
178 Deeks DAG VERA: 20 
OR a OS 0 Ok Oe 20 
182 0d tt Mit a 





We can see that the final contents of the memory location are 
as they were before except that bit 2 has changed from 0 to 1. 
To reset the same bit to 0, again without affecting the others, 
the following BASIC statement should be used: 


POKE memory,PEEK(memory) AND 251 


Again, looking at the bit patterns makes it clear why the 
number 251 was chosen. 


Bitno. 7 65 43 21 0 
182 fh MT OC a 1 
AND: “25% (St a a ea 
178: AS Ot Ae ee 


In general, to turn on a bit use this POKE: 
POKE memory,PEEK(memory) OR 27? bitnum 
and turn it off using 


POKE memory,PEEK(C memory) AND 
(255-C2tbitnum) ) 


As many of a computer’s functions are controlled by single 
bits within special memory locations used by the operating 
system, known as registers, the ability to alter the state of 
individual bits within a register can be very useful to those 
who wish to delve into the computer’s inner mysteries. 


‘Stranded’ — An introduction 


‘Stranded’ is an arcade game designed especially for this book 
and written in Locomotive BASIC for the Amstrad CPC range. 
At the end of each chapter there is a section on the game, 
adding routines to the game as the various facilities for 
graphics and games programming available on the Amstrad 
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CPC range are introduced. The game uses most of the features 
the Amstrad CPC range such as BASIC interrupts, screen 
windows, high-resolution drawing and collision detection. 
The purpose of these sections is to reinforce the material 
covered in the chapters and show you how to use the Amstrad 
CPC range’s features to design a high-quality graphics game 
in BASIC. The intention is to present the game in such a way 
that you can type in each section of program listing given as 
you work your way through the book, building up these 
sections progressively to form the entire program. Each section 
is designed to run correctly, provided that earlier sections have 
also been added, allowing you to test each short section of 
program after you have keyed it in. A complete listing of 
‘Stranded’ is also given in Appendix A. 

The game has a group of men stranded on rock pillars in the 
sea as the tide comes in. The player’s task is to climb down a 
cliff path, row out to the men and rescue each one in turn. The 
cliff path is dangerous; parts of the path move and there are 
ladders to climb or descend. Points are scored for each hazard 
successfully negotiated and each man rescued, but you only 
have four lives to lose or for three men to get drowned by the 
incoming tide before the game is ended. ‘Stranded’ also has a 
number of different levels of difficulty, the path becoming 
trickier to walk and the tide coming in faster as you reach each 
succeeding level. 

The program is well structured along the lines of the 
principles indicated to you in this chapter, subroutines and 
flags being used for each important program section. The 
structure will be explained as the various blocks of program 
are assembled through the book with structure diagrams to 
show you how to put a large program together in a structured 
way. I hope that, if you follow the construction of the game 
carefully, by the end you see why structuring makes large 
programs such as this so much easier to write. 

The emphasis with all these sections is to take the program- 
ming ideas learned out of the abstract and show you how they 
can be put together to make a complex and worth-while 
program. 


Chapter Two 


Screen display 


In this chapter: 

Screen display modes 
Layout and uses 

Selection of colours 


PEN, PAPER, INK, SPEED INK 
Logical and actual colour numbers 


Positioning characters 
The LOCATE command 
Windows 


Defining a window 
Controlling colours and printing 
Overlapping windows 


‘Stranded’ 


Setting up the screen 


The screen display modes 


The Amstrad CPC range have three different screen modes 
which may be selected using the MODE command. This table 
shows what each mode offers in terms of character columns 
and colours. 
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Characters Number of simultaneous 
(columns x rows) colours 


0 20 x 25 16 
40 x 25 4 
80 x 25 






Mode 0 is the multicolour mode, allowing 16 different 
colours to be displayed on the screen at the same time. It has, 
however, only 20 columns across the screen making program 
listings and other text difficult to read. Mode 0’s large character 
cells and numerous colour combinations make it the ideal 
mode for most graphics games. 

Mode 1 is the normal display mode and is automatically 
selected by the Amstrad CPC range when it is first switched 
on. The 40-column screen makes program listings and other 
text easy to read and is therefore mainly used for program- 
ming. The four colours make mode 1 a good choice for 
displaying graphical and textual information, provided that 
the information does not require more than 40 characters 
across the screen. 

Mode 2 might be termed the ‘business’ mode. Only two 
colours, one foreground and one background, are allowed. The 
80-column display makes mode 2 useful for spreadsheet 
accounting and viewing word-processor text. 

The choice of mode also affects the way in which high- 
resolution graphics are seen but we'll look at that aspect later, 
in Chapter 4. 


Selecting colours 


The way in which your Amstrad CPC range is designed to 
select colours is fairly confusing at first sight. Colour selection 
is handled by using a combination of INK, PEN, PAPER and 
BORDER. Colours can be referred to in two ways; either by 
their ‘actual ink number’ (AIN), or by what I shall call their 
‘logical mode colour number’ (LMCN). The Amstrad CPC 
range has 27 different actual colours, each with their own 
actual ink number: 
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Actual inks chart 















































Sa 
Actual ink | Colour Actual ink | Colour 
number number 
0 Black 14 Pastel blue 
1 Blue 15 Orange 
2 Bright blue 16 Pink 
3 Red 17 Pastel magenta 
4 Magenta 18 Bright green 
5 Mauve 19 Sea green 
6 Bright red 20 Bright cyan 
7 Purple 21 Lime green 
8 Bright magenta 22 Pastel green 
9 Green 23 Pastel cyan 
Cyan 24 Bright yellow 
Sky blue 25 Pastel yellow 
Yellow 26 Bright white 





White 


Each mode uses this resource of 27 actual colours to make up 
a selection of 16, 4 or 2 colours for use within any particular 
mode. Mode 0, for example, has 16 different colours. To make 
up this selection it takes 16 of the actual colours and numbers 
them from 0 to 15, like this: 


Logical mode 0 colour chart 










Logical mode | Actual ink 


Colour normally 
colour number number 


seen 








Blue 

Bright yellow 
Bright cyan 
Bright red 
Bright white 
Black 

Bright blue 
Bright magenta 
Cyan 

Yellow 


OANDNAAWBN-O 











10 14 Pastel blue 

11 16 Pink 

12 18 Bright green 

13 22 Pastel green 

14 Flash 1, 24 | Flash blue, yellow 


15 Flash 16, 11 | Flash pink, sky blue | 


Before we move on to look at each of the other modes let us 
see how to select a colour in mode 0. Before we start hold down 
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the CTRL and SHIFT keys together and tap ESC to reset the 
machine. 


PENand PAPER 


These two commands control the colour of the writing (the 
characters) and of the background screen. Both these com- 
mands use the logical mode colour numbers to select the 
foreground and background colours. After switching the 
machine on, or doing a reset like that described above, the 
paper colour is blue, LMCN 0, and the pen colour is bright 
yellow (LMCN 1). To change the pen colour to red type in: 


MODE @ 
followed by: 
PEN 3 


The READY message and cursor are now red, but notice that 
any previous writing on the screen is still yellow, the original 
foreground colour. To change the pen colour to bright green 


type: 
PEN 12 


What would you type in to change the foreground colour to 
cyan? Let’s reset the foreground colour back to bright yellow 


by typing: 

PEN 1 

and look atthe PAPER command. Type in: 
PAPER 3 


Notice that the screen behind the READY message has turned 
bright red, but the rest of the screen remains blue. To change 
the whole screen to the selected colour the PAPER command 
must be followed by CLS to clear the screen. Type in 


CLS 
To change the whole screen to pink type in: 
PAPER 11:CLS 


What command is required to change the screen back to its 
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normal blue colour? 

Mode 1’s and mode 2’s colour charts are similar to that for 
mode 0 but reflect the fewer colour choices available in these 
two modes. 


Logical mode 1 colour chart 


Logical mode | Actual ink Colour normally 
colour number number seen 








0 1 Blue 

1 24 Bright yellow 
2 20 Bright cyan 
3 6 Bright red 


Logical mode 2 colour chart 


Logical mode | Actual ink Colour normally 
colour number number seen 


1 Blue 
24 Bright yellow 


0 
{ 





Selecting new colours 


Although these tables show which colours you can normally 
expect to get when using a logical mode colour number, that is 
not the end of the story. It is possible to change any of the 
actual colour selection given by using the INK command. The 
way in which INK is used is best illustrated using mode 2. 
Press CTRL/SHIFT and ESC to reset and then type: 


MODE 2 


The text colour is bright yellow and the screen is blue. The 
logical colour chart for mode 2 shows that these are the colours 
that correspond to LMCN 1 and LMCN 0, respectively. As you 
can see from the table, LMCN 1 corresponds to the actual ink 
number 24, bright yellow. We can change the ink number for 
LMCN 1 to 26, bright white, by the following command: 


INK 1,26 


Notice that when we do this all the text currently displayed on 
the screen changes from yellow to white, not just the text that 
follows the command. Similarly we can change LMCN 0, used 
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for the background colour, to purple by entering: 
INK 0,7 


Notice that a CLS command does not have to be used to 
change the entire screen colour. 

We can think of our logical mode colour numbers as a group 
of 2, 4 or 16 pens that can be used to draw on the screen in 
modes 2, 1 and 0. When first given to you these pens contain 
certain colours, as shown in the logical mode colour charts. To 
select one of these pens to write with you use the PEN 
command and to select one of these colours to write on you use 
the PAPER command. At any time you can change the colour 
used by any of the pens (rather like putting a different colour 
refill in a ball-point pen) by using the INK command. 

Note that if you change modes by issuing a MODE command 
the paper colour always resets to LMCN 0 (normally blue 
unless changed by using INK) and the text colour always 
resets to LMCN 1 (normally bright yellow unless changed by 
INK). Logical mode colour numbers that have been changed 
by INK do not revert to their normal actual colours after a 
change of mode, but only if the computer is reset by switching 
off and on again or by pressing CTRL/SHIFT/ESC. 

The INK command can also be used to create flashing 
colours by adding a third number to the command. Type in: 


MODE 0 

followed by: 

INK 2,10,15 

Nothing appears to happen until you type in: 
PEN 2 


The INK command has changed LMCN 2 from its normal 
bright cyan to a flashing combination of cyan (AIN 10) and 
orange (AIN 15). The flash rate can be altered by using SPEED 
INK. Typing in: 


SPEED INK 100,20 


makes the first colour in the flashing pair stay on for 2 seconds 
and the second stay on for 2/5ths of a second. The units used 
by SPEED INK are 1/50th of a second. 
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The BORDER command 


You probably noticed, when you changed the screen colour 
using PAPER, that an area around the screen did not change 
colour. Normally you cannot see this border because it is the 
same colour as the rest of the screen, but it is possible to 
change the border colour using the BORDER command. As the 
border colour is independent of the screen display mode it 
does not select its colour using the logical mode colour number 
system but directly from the 27 actual colour numbers. So: 


BORDER @ 


does not set the border colour to blue (as PAPER @ would set 
the screen colour to blue) but to black; 0 being the actual ink 
number for black. The border colour is not reset during mode 
changes, only after a full machine reset. 


Positioning characters 


There are several commands in Locomotive BASIC that enable 
us to position characters on a screen, but the most useful for 
graphics and games purposes is the LOCATE command. 
Imagine the screen divided up into a series of rows and 
columns. In mode 0 there are 20 columns and 25 rows. Try 
typing in this short program and running it: 


10 MODE 0 

20 LOCATE 1,1 

30 PRINT "Q" 
A capital Q will appear to the top left corner of the screen, in 
column 1, row 1. Changing line 20 to: 


20 LOCATE 2,1 


will place the Q in column 2, row 1. By altering the first 
number only we can make the Q appear anywhere on the top 
line between column 1 and column 20. Similarly, by altering 
the second number we can make the Q appear in any row we 
choose, between 1 and 25. If charx is used for the column 
number and chary is used for the row number then we can 
position characters anywhere on the screen using LOCATE 
charx,chary. 
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We need not restrict ourselves to single characters we can 
just as easily position sentences and string or numeric variable 
values. For example: 


10 MODE 0 
20 LOCATE 5,4 
30 PRINT "x LOCATION 5,4" 


Here the star is the character that is actually at position 5,4. 
Using LOCATE with sentences or long strings can have its 
problems. You should be aware that if a sentence or string is 
too long to fit on a line, the whole string of characters is moved 
to the beginning of the next line, rather than allowing an 
overflow of excess characters as one might expect. This can be 
useful if you want this to happen, but a little annoying if you 
don’t. To demonstrate this, change line 3@ in the program 
above to: 


30 PRINT "» THIS IS LOCATION 5,4" 


and insert this line to place a red star at the real position of 
location 5,4 


15 LOCATE 5,4:PEN 3:PRINT "4": PEN 1 


The LOCATE command is of great use to us in setting up 
static screen displays and will be used in the next chapter to 
produce character animation. 


Windows 


Finally in this chapter on screen display let us look at one of 
the most interesting capabilities of the Amstrad CPC range, 
their ability to display up to eight simultaneous screen 
windows. 

Defining a window is like defining your own miniature 
screen within a screen. The foreground and background 
colours for the window can be set independently from the 
colours used on the main screen, or in other windows, and the 
window can be independently printed to, or cleared. The 
following program shows how the screen can be divided into 
four windows. 


1666 
1016 
1626 
1636 
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REM *##** Windows Demo #1 #x%#% 

MODE 1 

GOSUB 2666:REM define windows 
GOSUB 3@@6:REM set paper/pen for wi 


ndows 


1646 
1656 
1666 
1978 
ours 
1686 
1698 
1166 
2666 
2616 
26246 
2636 
2644 
2656 
2666 
3664 
dow 

3616 
3426 
am @ 
3636 
am 1 
3646 
am 2 
3656 
am 3 
3666 
3674 
4606 
4016 
4628 
4636 
4046 
44a5¢ 
4666 
4076 
3848 
35616 


GOSUB 4666:REM identify each stream 
GOSUB 56@0:REM write to each window 
GOSUB 6@@@:REM clear each window 

GOSUB 7@6060:REM change pen/paper col 


GOSUB 866@:REM reset 
END 


REM **** define windows ##*# 
WINDOW 1,280,1,12 

WINDOW #1,21,46,1,12 

WINDOW #2,1,26,13,25 

WINDOW #3,21,46,13,25 

RETURN 


REM **¥** set paper/pen for each win 


BORDER @ 
PAPER @:PEN 1:CLS :REM stre 


PAPER #1,1:PEN #1,2:CLS #1:REM stre 
PAPER #2,2:PEN #2,3:CLS #2:REM stre 
PAPER #3,3:PEN #3,4:CLS #2:REM stre 
RETURN 


REM #***® identify each stream *##* 
FOR stream=@ TO 3 

LOCATE #stream,i,i 

PRINT #stream,"Stream "sstream 

FOR delarv=i TO 1@@@:NEXT delay 
NEXT stream 

RETURN 


REM *#*2 write to each window ##*% 
FOR stream=8 TO 3 
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5426 PRINT #stream 

5636 PRINT #stream,"This is stream";stre 
ams;"I am totally separate to other strea 
ms" 

5646 FOR delarv=i1 TO 166@:NEXT delay 

5@5@ NEXT stream 

5666 RETURN 

3676 : 

666@ REM **#** clear each window ***¥* 
6616 FOR stream=3 TO @ STEP -1 

6626 CLS #stream 

6636 FOR delay=1 TO 160@:NEXT delay 

664@ NEXT stream 

6656 RETURN 


6666 

7666 REM *#** change colours *#*¥* 

7616 PAPER 1:PEN 2:CLS :REM stre 
am @ 


7626 PAPER #1,2:PEN #1,3:CLS #1:REM stre 
am i 

7636 PAPER #2,3:PEN #2,@:CLS #2:REM stre 
am 2 

7646 PAPER #3,@:PEN #3,1:CLS #3:REM stre 
am 3 

7656 FOR stream= @ TQ 3 

7466 PRINT #stream,"and I can independen 
tly change pen and paper colours" 

7476 FOR delay=1 TO 166@:NEXT delay 

7686 NEXT stream 

7898 RETURN 

7166 : 

S406 REM #£*** reset xx*# 

6416 PAPER @:PEN 1:CLS 

8626 MODE 1 

$636 RETURN 


This program splits the screen into four quarters and proceeds 
to demonstrate how each window can be separately controlled. 
The main concept behind windowing is ‘streaming’. Each 
window area is defined by five numbers, giving its dimen- 
sions and a stream number. The commands PEN, PAPER and 
CLS can be directed to any particular window by following 
them with the relevant stream number. The window command 
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simply defines an area in terms of character cells (as used by 
the LOCATE command) and gives it a stream number. The 
syntax is: 


WINDOW #stream, left edge, right edge, top 
edge, bottom edge 


If no stream number is specified when using WINDOW, PEN, 
PAPER, PRINT and CLS then it assumed that you mean 
stream 0, the normal screen. In the example program the 
normal screen area is redefined as the top left quarter of the 
screen. It should be noted that all window-area definitions are 
destroyed after a change of mode, although pen and paper 
colour definitions for each stream are retained. 

A further point of interest is that you can overlap windows. 
This program defines two windows that overlap by three 
character widths in the middle of the screen. 


1@ REM ##** windows demo #2 *#*# 

15 MODE 1:BORDER 6 

26 GOSUB 1666:REM define windaws 

36 GOSUB 2064:REM set up pen/paper colou 


166@ REM **#* define windows ###% 

161@ WINDOW 1,21,1,25 

1@2@ WINDOW #1,19,48,1,25 

1636 RETURN 

1446 ;: 

2G0@ REM #*#** set up pen/paper colours # 


2616 PAPER 3:PEN 1:CLS 
2626 PAPER #1,2:PEN #1,@:CLS #1 
2636 RETURN 


Run the program, then type: 
LIST 


The program will list into the left-hand half of the screen, but 
notice that any long lines will extend into the overlap area 
overlaying the cyan colour of window 1. Now try typing: 
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LIST #1 


This command directs the program to be listed in the 
right-hand window. Any intrusions made by the first listing 
into the overlap area are overlayed again by the blue on cyar 
listing occurring in window 1. Notice also that althougf 
window 1 scrolls during the listing process, as the right-hanc 
half of the screen fills up, the left-hand window does not scroll 


Type: 
LIST 


again and the program will again list in yellow on red, in the 
left-hand window, overlaying the previous blue on cyar 
listing in the overlap area. The simple rule is that where 
windows overlap, both windows can use the overlap area 
writing over anything previously there. 

The LOCATE command can also be used with eact 
window, in a similar way to the other commands we have 
mentioned. The top-left corner of any window is defined a: 
location 1,1, and characters can be positioned in the window ir 
the same way as previously discussed. To locate a character a 
the top-left corner of a window, the following form of thi 
command should be used: 


LOCATE #stream,1,1 


where Stream is the stream number of the window it 
question. 

Windows are very useful in graphics games, where we wan 
to define different coloured areas to represent things like sea o 
sky. The use of windows allows us to have different colourec 
backdrops to our game. 


‘Stranded’ — Setting up the screen 


This first part of ‘Stranded’ deals with setting up the screen 
This involves defining windows and drawing in part of the 
cliff-walk, as well as defining each of the colours to be used ir 
the program. 

The game is designed to work in the multicolour mode 0 
and therefore the screen will have 20 columns and 25 rows. It is 
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often a good idea to sketch out a screen layout on squared 
paper, like this: 
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Figure 2.1 


The character used to create the cliff-walkway is the 
chequerboard character CHR$(207). Line 1850 in the 
initialisation routine uses the STRING$ command to create a 
string, dec k$, made up of 20 of these characters. The LEFT$ 
command is then used in lines 2680-2760, together with 
LOCATE and PEN, to create the walkway from portions of 
deck$. SPACE$(n) used in these PRINT statements 
creates a string of n space characters. 





CHR$ (207) 
Figure 2.2 
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Three windows are defined by the initialisation routine. The 
normal window, stream 0, is defined as the whole screen area. 
This may seem unnecessary, but it is a failsafe to ensure that 
window 0 had not been defined before this program was 
loaded and run. Window 2 takes up the bottom part of the 
screen, to define the area of sea. Window 3 will serve as a short 
jetty out into the sea, although at this stage it will not be 
visible, as window 3 has not been cleared yet. 

Lines 2620-2660 are concerned with defining the colours 
that will be used by the program. As a precaution all logical 
mode colours used are defined using INK. It is not assumed 
that the logical colour numbers correspond to the normal 
actual colours. Again these may have been redefined, prior to 
loading and running this program. You will also notice that I 
have defined several variables such as ‘red’ or ‘black’. It can get 
quite confusing within a large program to keep track of all the 
various logical mode and actual ink colour numbers floating 
about. It is a good idea therefore to set up variable names for 
each number, telling you what they are. Once defined these 
variables allow you to write commands like PEN red or 
PAPER sky. This avoids having to keep referring to colour 
charts whilst programming. All the colour variable names like 
‘red’ or ‘sea’ refer to the logical mode colour numbers, not the 
actual ink colours. If actual ink numbers are needed, for 
example for use in an INK command, I have used variable 
names like redink to show that these are ink numbers, and 
cannot be used successfully with the PEN or PAPER com- 
mands. 


{GGG REM HXKKKKEKKEKKKKKEKEKKEKEKKEE 
1G1G REM XXX KKH RRR KE EER KEKE ERK KEE 


1626 REM ** HX 
1@3@ REM ** Stranded! *% 
1646 REM #* ¥¥ 
1050 REM ** (c)1985 S.W. Colwill ** 
1666 REM ** ¥* 


1G07G REM *XXKKRKRKRERKKKEKEREKEKKEEE 
1G8G REM KXKXEKXHKEKEKSKEKKEEKKKEKKE 
1246 GOSUB 186@:REM initialise 

1276 REM *XXXRRKKRKRKKRRKEREE 

1286 REM * set up routines * 

L129G REM KHER KEKRKEKKKKKKERE 


1324 
1768 
1776 
178@ 
1796 
1866 
1816 
1846 
185@ 
1966 
1918 
1926 
1934 
2336 
Zébb 
2614 
2626 
2636 
4 


2646 
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GOSUB 2686:REM set up screen 
REM SEXES RRHEREENHE 

REM * subroutines * 

REM SXEKHEKEEKE KEES 

REM #822 initialisation *x*## 
MODE 6 

REM **® define strings ** 
deck#=STRINGS#¢( 26, CHRS( 207) 
REM ** define windows ** 
WINDOW 1,20,1,25 

WINDOW #2,1,28,18,25 

WINDOW #3,19,19,18,23 

RETURN 

REM **¥** set up screen *#*# 
BORDER 6 
whiteink=2é:blueink=1:redink=6 
sky=1@:black=S:water=@:red=3:whi te= 


qreen=1Z2:blue=é6:pink=l11:pastqreen=] 


3S:mauve=14 


2695 deck(io=red:deck( 2 =qreen:deckt33=b 
lue 

Z265@ INK 1@,14:INK 3,4:INK 4,26:INK 5,4: 
INK 14,5 

2666 INK 12,18:INK 6,2:INK 11,14:INK 12, 
22 

2676 PAPER sky:CLS:PAPER #2,water:CLS #2 
:PEN #2,whi te 

268@ LOCATE 1,4:PEN deck¢1> 

2690 PRINT LEFT#(€ deck#,5) ;SPACES¢( 3) s LEFT 


$C deck$,5)3 


2700 
2716 
2720 


PRINT SPACE#(3) ;sLEFTS( decks, 4) 
LOCATE 1,9:PEN deck¢2) 
PRINT LEFT#( deck, 4) :SPACES¢ 2) sLEFT 


$C deck$,6); 


2736 
2746 
2756 


PRINT SPACE$( 3) ;LEFTS<‘ deck, 5) 
LOCATE 1,15:PEN deck¢3) 
PRINT LEFT#( deck#,6) ;SPACE$¢ 3) ; LEFT 


$C deck#,3)3 


2766 
2776 


PRINT SPACES( 2) sLEFTS( deck$,6) 
RETURN 
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Program structure 


The structure of the program so far is very simple. Two 
subroutines are called from the main program; one is an 
initialisation routine and the other sets up the screen display. 
The structure diagram so far is: 






Stranded 


Figure 2.3 


Chapter Three 


Animation and control 


In this chapter: 
User-defined characters 


Pixels, CHR$, SYMBOL and SYMBOL AFTER 
Location of the RAM character set 
User-defined character generator program 


Animation 
‘On-the-spot’ and relocating animation 
Keyboard control 


Use of INKEY and INKEYS 
The keyboard buffer 

‘Catch’ program 

SPEED KEY 


Joystick Control 


Use of INKEY, INKEYS and JOY 
Which method to use and why 


‘Stranded’ 
Defining the characters and movement routines 


User-defined characters 


In common with most other home computers the Amstrad 
CPC range display letters, numbers and symbols by lighting 
up a pattern of small dots within an 8 X 8 dot grid to form the 
image of the character. These dots are known as picture 
elements, or ‘pixels’ for short. Depending on the pattern of 
pixels lit up within this 8 x 8 grid, different characters can be 
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made to appear. For example, a capital A and a question mark 
are actually made up of these patterns of dots: 





CHR$ (65) CHR$ (63) 
Capital A Question mark 


Figure 3.1 


The collection of character shapes, like these, that the 
Amstrad CPC range have stored inside their ROM memory is 
called the ‘character set’, and includes the upper- and lower- 
case alphabet, the digits 0-9, punctuation and arithmetic 
symbols, together with a number of other special symbols, 
making 255 characters in total, many of which are available 
from the keyboard using the keys, either by themselves or 
together with SHIFT or CTRL. Each character in the character 
set can also be accessed by using its CHRS$(pronounced 
‘character string’) number. For example, capital A has a CHR$ 
number of 65. Try typing: 


PRINT CHR$(65) 


to make a capital A appear. Some of the characters in the 
character set can only be accessed by using their CHR$ 
number. Type: 


PRINT CHR$(164) 


to print the copyright symbol ©. 

The characters with CHR$ numbers 0 and 31 should not be 
used in this way as they have special control functions that are 
dealt with in Chapter 7. This short program displays all the 
characters in the Amstrad CPC range’s character set, together 
with their CHR$ numbers. 
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16 REM **** charset #*x2 

26 MODE 6 

36 FOR charnum=32 TO 254 STEP 2 

46 PRINT charnum;CHRS¢charnum) ; 

5@ PRINT SPACE$(5) scharnumti sCHRS¢charnu 
m+i> 

6@ PRINT 

78 FOR delary=1 TO S@@:NEXT delay 

S@ NEXT charnum 


Each character is actually held in memory as eight consecu- 
tive bytes, representing the eight rows that make up the 
character. On each row there are eight pixels which are each 
represented by one bit within the byte for that particular row. 
If the bit is set to 1 then the corresponding pixel is on, if it is set 
to 0 then the pixel is off. The following figure shows how any 
character can be held as a group of eight bytes, or their decimal 
equivalents. 


128 64 32 16 8 4 2 U 





CHR$ (163) Binary Image Decimal. 
Pound sign forming eight equivalent 
bytes of data of each byte 


Figure 3.2 


Why should we want to know this sort of information? The 
reason is that we can redefine the £ sign (or any of the other 
characters with codes 32-255) to our own design using the 
SYMBOL and SYMBOL AFTER commands. Type in and run 
this program: 


5 MODE @ 
10 SYMBOL AFTER 163 
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20 SYMBOL 163,24,24,18, 
126,88,30,242,131 
3@ PRINT CHR$(163) 


A running man should appear on the screen. 


128 64 32 16 8 4 2 U 





24 &18 
24 &18 
18 &12 
126 &7E 
88 & 58 
30 &1E 
242 & F2 
131 & 83 
CHR$ (163) Decimal equivalent Hexadecimal equivalent 
Running man of each byte of each byte 
Figure 3.3 


The S YMBOL command has a list of nine numbers following 
it. The first of these determines the CHR$ number of the 
character to be redefined, in this case 163, the £ sign. The 
following eight numbers are the eight numbers that define the 
eight rows of the character as shown. The character is then 
printed using its CHR$ number. Once you have run this 
program, test that our running-man character has indeed taken 
over from the £ sign by making it appear by pressing the £ key 
on the keyboard. The SYMBOL AFTER command determines 
how many characters can be redefined. If SYMBOL AFTER is 
not used then the computer assumes a value of 240. This means 
that 16 characters can be redefined, those from CHR$(240) 
to CHR$(255). Here the SYMBOL AFTER command allows 
all the characters from CHR$ (163) onwards to be redefined. 

One point of interest is that if you redefine a normal letter 
character, say capital O, then list the program after having run 
it, all the O’s appear as running men (or any other shape you 
define). However, the program will still work perfectly. 
Change the number 163 in lines 18 and 2@ to 79 and add this 
line to see the effect: 


40 LIST 
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If the left line 30 as it was then you will also see the normal £ 
sign printed before the program lists itself. This character has 
returned to its normal appearance because of the new 
SYMBOL AFTER command, this resets any changed defini- 
tions back to their normal state. 


The character-set location in RAM 


More advanced programmers may wish to know where the 
character set lives in the Amstrad CPC range’s memories so 
that they can PEEK and POKE around in them. Firstly, we 
have to understand the function of the SYMBOL AFTER 
command. This command copies a portion of the character set 
from ROM to RAM, so that it may be redefined. The area of 
memory used is that at the top of the RAM area used by 
BASIC. The system variable HIMEM gives the address of the 
highest byte of this area: We can find the top of BASIC 
memory after a machine reset by typing: 


PRINT HEX$CHIMEM) 


The last address used by BASIC is &AB7F (&A67B for disk 
versions). We can see the effect of the SYMBOL AFTER 
command by typing in: 


SYMBOL AFTER 239 
PRINT HEX$CHIMEM) 


This time we find that the top of BASIC memory has been 
lowered by eight bytes to &AB77 (&A673). This is to make 
room for the eight bytes defining CHR$(239) (remember 
that the 128 bytes data defining CHR$(24Q0) to 
CHR$(255) is automatically copied into RAM on power- 
up). If we make all characters from CHR$(32) onwards 
redefinable by copying them into RAM using: 


SYMBOL AFTER 32 


then HIMEM drops to &A4FF (&9FFB). The first byte of any 
eight-byte block defining a character with CHR$(n) can be 
found from this formula: 


address of first byte = &A500 + 8x(n—32) 
(&9FFC + 8 X (n—32) for disk systems 
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assuming that the relevant definition has been copied into 
RAM using SYMBOL AFTER. Thus the eight bytes defining 
the £ sign, CHR$(163), can be found from this short 
program: 

16 REM *#*%* Findchar *##* 

26 GOSUB 1@66:REM initialise 

36 GOSUB 260@:REM find start address 

46 GOSUB 36@@:REM print aut next eight b 
ytes 


16G6@ REM **#* initialise **##* 

161@ n=163:REM chr$(163> is pound sign 
1626 SYMBOL AFTER 163 

1636 RETURN 

1646 : 

Z6G6 REM *¥*#* find start address of chré 
Cn) **** 

2616 addr=&AS50G+S*¢(n-32):REM for disk sy 
stems use &9FFC 

2626 RETURN 

2036 : 

3666 REM **¥#* print out bytes ¥#** 

3016 FOR a=addr TO addr+7 

3620 PRINT PEEK¢a> 

3430 NEXT a 

3646 RETURN 


Having located the RAM definition of any character then, if 
required, redefinition can be made simply by changing the 
contents of the eight defining bytes, either from machine code, 
or from BASIC using POKE. 


A user-defined character generator program 


This program is a sophisticated utility allowing you to define 
your own characters on a large 8X8 grid. The decimal 
equivalents of the eight defining bytes are displayed at all 
times and can be noted for future use. A further enhancement 
of the utility is a second display square that allows you to 
combine several redefined characters together to make larger 
shapes. Instructions are contained within the program and it is 
suitable for use with either the cursor keys or a joystick. 
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Advanced programmers will note the direct access to 
memory made in the subroutine at line 3000, using the 
techniques discussed in Chapter 1 to alter individual bits 
within any of the eight defining bytes. 


1GOG REM KEXSHSEKEERREKREKE REESE 
1405 REM KXXRRESESREERESE EE EEEE 


1910 REM ** HE 
1626 REM #** user defined **¥ 
1636 REM *+» character x* 
1646 REM ** generator * 
1656 REM #* HE 


L1O6H REM HE XES KERR EREEKERKRERERE 

1676 REM xXx XESKSESERS EERE EREE 

168@ : : 

1696 GOSUB S366:REM initialise 

116@ GOSUB 9006: REM draw border/title 
111@ GOSUB 95@6:REM instructians 

1126 CLS 

1136 : 

114@ REM ***# main program loap ##2* 


1166 edflag=1:REM set edit flaaq 

1176 GOSUB 946@: REM border/title 

1186 GOSUB 86@G@: REM aqrid 

1196 GOSUB 9146: REM display border 

12@@ GOSUB 6664: REM display 

1218 nx=Siny=4:REM start position 

1226 GOSUB S6@@:REM test positian 

123@ EVERY 14,6 GOSUB 4686:REM flash cur 


1256 WHILE edflag=i 

12466 at=INKEYS:IF ag="" THEN 1246@:REM aw 
1276 DI:REM disable interrupt 

128@ REM **® cursor Keys or Jjarstick ** 
1290 dx=@:dy=6 

1346 IF INKEY<@)>=6 OR INKEY¢?72)=6 THEN d 
1316 IF INKEY(2)=6 OR INKEY¢73)>=6 THEN d 


1326 IF INKEY(8)=6 OR INKEY¢74)=@ THEN d 
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1336 
x=1 

134@ 
1356 


IF INKEYC1>=6 OR INKEY(75)=@ THEN d 


REM **® toaqgle cell ? 
IF INKEY¢18)=@ OR INKEY(76)=@ THEN 


GOSUB 3686 


1426 


REM ** quit ? ** 

IF INKEY¢67)=6 THEN END 

REM **® z or x Keys ? ¥* 

IF INKEY(71)>=6 THEN up#flagq=1:GOSUB 


IF INKEY¢63)=6@ THEN upflag=@:GOSUB 


REM **** display character ? *¥## 
IF INKEY(61)9=@ THEN PEN 3:LOCATE nx 


+18,ny:PRINT CHR#¢( char) 


1436 
1446 
1456 
1466 
1476 
14986 
1496 
1566 
1516 
1526 
1536 
1546 
1556 
1564 
1576 
1588 
2666 
2016 


REM **** erase display ? ¥*** 
IF INKEY(S8)=6 THEN GOSUB 796 
LOCATE nx,ny 

PEN charcolour:PRINT charunder? 
nx=nxtdx:IF nx>l2 THEN nx=5 

IF mx<S THEN nx=12 
ny=nytdy:IF ny>13 THEN ny=6 

IF ny<é THEN ny=13 

GOSUB S@@6:REM test position 
EI:REM enable interrupt 

WEND 


dummy=REMAIN(C@):reset timer 
GOTO 1146:REM restart loop 
END 


REM *2*#* mew character s/r x##* 
IF upflag=1 THEN char=chart+1:IF cha 


r>255 THEN char=255 


IF upflag=@ THEN char=char-1:IF cha 
THEN char=32 

edflag=@:REM unset edit flag 

RETURN 

REM *#### edit a cell x#*x* 
charunder$=CHRS( 287-ASC( charunder$) 


charcol qur=1+¢1494-ASC(charunder$?) )¥ 
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3636 base=41984+Sechar:REM for disk vers 
ion use 4$0766+Sxchar 

364@ addr=baset(ny-4) 

365@ IF charunder#=CHR#$‘(143) THEN POKE a 
ddr ,¢PEEKCaddr> OR 2*¢1i2-nx)) 

3666 IF charunder#$=CHR#(144) THEN POKE a 
ddr ,¢PEEKCaddr> AND (255-2°* ¢12-nx)93 
3076 PEN 3:REM white 

348@ LOCATE 14,ny 

3096 PRINT PEEK¢Caddr);" " 

3166 RETURN 

3116 : 

466@ REM *#* flash cursor #* 

461@ flash=1-flash 

4@62@ LOCATE nx,ny 

4636 IF flash=1 THEN PEN 2:PRINT CHR#¢614 
3) 

4446 IF flash=6 THEN PEN charcolour:PRIN 
T charunders 

465@ RETURN 

4066 : 

S@G@ REM **** test position s/r ##Re 
34@1@ gx=16*#(nx-@.5) 

SG26 Qr=39F-16*(ny-G.5) 

5636 charcolour=TEST‘ qx ,qQy:; 

5@49@ IF charcolour=1 THEN charunder#=CHR 
$¢144) ELSE charunder$=CHR$¢ 143) 

S656 RETURN 

S466 : 

6660 REM #*#* display pattern ###* 

6610 chart=STR#( char) 

6626 chard=MIDS¢Cchar#é,2,LEN¢C charé)-1) 
6@3@ PEN 1:REM black letters 

604@ LOCATE %,4:PRINT SPACE#(S)> 

60650 LOCATE 5,4:PRINT"CHRS("scharé;"3" 
60466 FEN 3S:REM white shape 

69760 PRINT CHR#¢22>+CHRE¢C1>:REM trans on 


6696 at(G)=CHRE(32):REM space 

6096 atC1>=CHRE(6143):REM square 

6166 y=46:REM vertical tab 

6116 base=41984+Sechar:REM for disk vers 
ion use 46766+S#char 

6126 FOR address=base TO baset+? 
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6136 contents=PEEK( address) 

6146 GOSUB 766@6:REM convert 

6156 LOCATE 5S,y 

616@ PRINT display#;" "scontents 
6176 y=yti 

618@ NEXT address 

619@ PRINT CHR$¢22)+CHRS(G):REM trans of 
fF 

6266 RETURN 

6216 : 

7666 REM **® convert s/r ** 

7016 displays="" 

7626 FOR dqg=7 TO @ STEP -1 

7636 IF Ccontents AND 2*dg)=2*dg THEN r= 
1 ELSE r=6 

7648 displayt=display$tat(r> 
7456 NEXT da 

7@6@ RETURN 

7670 : 

8000 REM **** grid **¥** 

8610 PEN 1:REM black spots 

8826 spotst="" 


8636 FOR i= 1 TO & 

8646 spotst=spots$+CHR$¢( 144) 
8@5@ NEXT 

866 y=6:REM vertical tab 
8676 FOR 1 = @ TO 7 


8086 LOCATE 5,y+1 

S476 PRINT spots#;SPACES( 5) 
810@ NEXT 1 

8116 RETURN 

8126 : 

746G REM **** border **#* 
9010 GRIGIN 6,4 

928 DRAW 6,39°7,3 

9030 DRAW 639,399 

9040 DRAW 639.6 

9456 DRAW @,4 

76466 PEN i 

967@ LOCATE 7,2:PRINT"CPC 464/664 CHARAC 
TER GENERATOR" 


7696 RETURN 
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9100 : 

726@ REM ##** display border s/r x22 

9218 x=22%16-2: y=3PP-146¥13 

9220 MOVE x.y 

9230 DRAWR 136,4,2 

7246 DRAWR 6,136 

9256 DRAWR -1348,4 

926@ DRAWR @,-136 

92786 RETURN 

9286 : 

93G0 REM *#** initialise s/r see 

931@ MODE 1 

9326 INK @,1:REM background 

9336 INK 2,2:REM bright blue 

9340 INK 1,4: REM pen 1 black 

935@ INK 3,24: REM pen 3 white 

9366 PAPER @: BORDER 2 

9376 SPEED KEY 34,24 

73286 CLS 

9390 RETURN 

740@ : 

9566 REM ##** instructions s/r xee* 

951@ LOCATE 2,4 

9526 PRINT"Use the 2 and X Keys ta step 

. through" 

$536 LOCATE 2,5 

9546 PRINT"the character set." 

556 LOCATE 2,7 

9566 PRINT"Cursor keys or jarstick 1 mov 
e cursar" 

9378 LOCATE 2,8 

9586 PRINT"within the edit square. ENTER 
or FIRE" 

9590 LOCATE z,¢? 

7604 PRINT"togqqle a cell on or off." 
761@ LOCATE 2,11 

9626 PRINT"The current character can be 

made ta" 

7636 LOCATE 2,12 

9440 PRINT" appear at the carrespoanding c 
ursor" 

$458 LOCATE 2,13 

766@ PRINT"position by pressing the D Ke 
¥. u 
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94678 LOCATE 2,15 

F636 FRINT"G quits program.” 

9696 LOCATE 2,17:PEN 2 

3760 FPRINT"Reset character set (y/n) ?" 
9718 aS=INKEY#:IF at<>"y" AND at<>"n" TH 
EN 7714 

9726 IF at="y»" THEN SYMBOL AFTER 32 
9734 LOCATE 2,19 

9746 INPUT"Enter first CHR" scré 

9758 char=VALC crs) , 

776@ IF char<32 OR char>255 THEN LOCATE 
18,17:PRINT SPACE$(5):GOTO 9736 

9770 RETURN 

7788 

S750 REM *#** erase display square ¢/r # 
XE 

7806 FOR y=6 TO 7? 

9814 LOCATE 23,yr+é6 

3620 FRINT SPACE#(S) 

9336 NEXT y 

7848 RETURN 


Animation 


Now that we have the ability to redefine character shapes we 
can start to learn about animating the shapes we create. 
Probably the simplest way to animate is to use single-character 
shapes and interchange them. We could define our own 
shapes to create a simple piece of animation depicting a man 
exercising on the spot, but the Amstrad CPC range have 
prepared some standard characters within the character set 
that we can use. Let’s introduce the figures by typing in: 


MODE 0 
followed by: 
PRINT CHRS$(248);CHRS$(249) 
We can create the animation effect by rapidly printing 


alternating characters. 


16 REM *¥*¥** animation demo #1 *¥**¥ 
Zu GOSUE S@6:REM initialise 
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3@ WHILE INKEY$="" AND delayval >@ 
46 GOSUB 16@6:REM toaqgle character 
3@ WEND 


66 END 

78 3: 

366 REM #*#* initialise x##*x 
5318 MODE @ 

326 delayval=566 

538 RETURN 

546 : 


1666 REM **** toqqle character *®*#+* 
14616 tog=1-tog 

1626 LOCATE 16,12 

1838 PRINT CHRS$( 248+ tog) 

1644 delayval=delayval-16 

1056 GOSUB 266@:REM delay 

166@ RETURN 

1076 : 

26GG REM ¥*¥*®* delay *##* 

2010 FOR i=1 TO delayval:NEXT i 
2426 RETURN 


This simple program has two main parts: an initialisation 
routine and a WHILE...WEND loop that alternates (or 
‘toggles’) the character printed at location 10,12. Without 
any delay between one character (say the ‘arms up’ character) 
and the other (say the ‘arms out’ character) the motion 
produced would be so fast as to blur. A delay loop is therefore 
introduced to wait around for a while after one character has 
been printed before printing the other. To demonstrate what 
different delay values look like, the delay loop limit, de- 
LayvaL, is decremented in tens from its initial value of 500. 

Line 10810 shows a useful tip. Often the occasion arises 
when a value (say) within a subroutine needs to alternate 
between two specific values each time the subroutine is called. 
Here we need to alternate between printing CHR$ (248), the 
‘arms up’ character, with CHR$(249), the ‘arms down’ 
character. When the program is run the initial value of the 
variable tog will have the value 0. When line 101@ is met for 
the first time, the value of tog will therefore be changed to 1. 
On meeting line 101@ a second time tog will be reset to 0 
(because 1—1=0) and so on. The value of tog will therefore 
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alternate between 0 and 1 each time the subroutine at line 
1000 is called. By subsequently adding 248 to tog in line 
1030 we will get alternating CHR$ values of 248+0 and 
248+1, ie. 248 and 249, the CHR$S numbers of our two 
characters. 

We can make a character move around the screen by 
changing the position it is located at, but we must also print a 
space over the old position to erase the old character. This 
short program shows the ‘arms down’ character walking 
around the edge of the screen. 


1@ REM #*#* animation demo #2 #*¥* 
2@ GOSUB 5S@4:REM initialise 

36 GOSUB 16@6:REM top edae 

46 GOSUB 24@04@:REM right side 

36 GOSUB 3666:REM bottom edge 

69 GOSUB 4@0@:REM left side 

76 GOSUB S&@GG:REM diagonally 

86 GOSUB 3664:GOSUB 4@@@:REM and home 
96 END 

160 : 

S46 REM *¥¥2* initialise %2=** 

51@ MODE @:BORDER @ 

326 charx=1:chary=1 

.338 man#t=CHRS¢( 248) 

346 delayval=166 

55@ RETURN 


1666 REM #*** along the top edge *x*# 
1916 WHILE charx<26 

1@2@ LOCATE charx,chary:FRINT " ":REM ru 
bout old 

163@ charx=charxti 

1646 LOCATE charx,chary:PRINT man; 

165@ GOSUB 646@:REM delay 

146@ WEND 

1076 RETURN 

1686 : 

2666 REM **#* down right side *#** 

201@ WHILE chary<25 

2626 LOCATE charx,chary:PRINT " ":REM ru 
bout old 

2636 chary=charyti 
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264@ LOCATE charx,chary:PRINT mans; 
2656 GOSUEB 660@:REM delay 

2666 WEND 

247@ RETURN 

2636 : 

S66G REM ###2# alang battam edge =##*+# 
3@1@ WHILE charx>l 

3426 LOCATE charx,chary:PRINT " ":REM ru 
bout old 

363@ charx=charx-] 

3646 LOCATE charx,chary:PRINT mans; 
3656 GOSUB 46@@@:REM delay 

3468 WEND 

32676 RETURN 

3486 : 

406G REM *#*¥** up left side *#*¥* 

4@1@ WHILE chary>1 

4@2@ LOCATE charx,chary:PRINT " ":REM ru 
bout old 

4636 chary=chary-1l 

464@ LOCATE charx,chary:PRINT man; 
4656 GOSUB 4666:REM delay 

466@ WEND 

4476 RETURN 


S406 REM #222 diagonally *#3* 

5@1@ WHILE chary¢25 AND charx<2@ 

S@26 LOCATE charx,chary:PRINT " ";:REM ru 
bout old 

“638 charx=charxt+i:chary=charyti 

3@4@ LOCATE charx,chary:PRINT man#; 

3456 GOSUB 44@@:REM delay 

5@4@ WEND 

5476 RETURN 


6600 REM =*** delay #*#% 
6619 FOR i=1 TO delayval :NEXT i 
6620 RETURN 


The program consists of five major subroutines to deal with 
the five directions of motion used. The structure of each 
subroutine is similar: a WHILE. ..WEND loop testing for a 
terminating condition, and two print statements, one to erase 
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the old position and the second to print the character’s new 
position. The variables charx and chary are used to keep 
track of the position of the character, each being successively 
incremented or decremented by 1 to move the character left, 
right, up, down or diagonally. Notice the semicolon (;) added 
to end of the print statements where the character is printed. 
This surpresses the normal carriage return to avoid the screen 
scrolling when the character is printed at the bottom of the 
screen. 

The above program is designed to show, as simply as 
possible, the various stages required for animation. You will 
no doubt have noticed that each movement routine is very 
similar to the others. Adopting a slightly more structured 
approach we can design a generalised move routine that 
blanks out the old character and prints the new. This program 
uses just such a routine and does exactly the same job as the 
last program. 


16 REM **** animation demo #3 **** 

26 GOSUB S@6:REM initialise 

3@ GOSUB 16@@:REM top edge 

44 GOSUB 206@:REM right side 

3@ GOSUB 36@6:REM bottom edge 

6@ GOSUB 4@@@:REM left side 

76 GOSUB 5@@@:REM diagonally 

86 GOSUB 3666:GOSUB 4666:REM and hame 
?@ END 


346 REM ¥#**® initialise **##* 
51@ MODE @:BORDER @ 

526 charx=1:chary=1 

336 mant=CHR$¢ 248) 

344 delayrval=166 

556 RETURN 


1666 REM **** along the top edqe *x#* 
1614 WHILE charx<26 

1626 dx=1:dy=6:GOSUB S566:REM move 
1666 WEND 

167@ RETURN 


2666 REM **** down right side *x##* 


Animation and Control 51 


2610 WHILE chary<25 

2626 dx=6:dy=1:GOSUB S5566:REM move 
20606 WEND 

2076 RETURN 

2688 : 

3466 REM *#**® along bottom edqe *x*#* 
3016 WHILE charx>l 

3626 dx=-1:dy=6:GOSUB S54@@:REM move 
3868 WEND 

3676 RETURN 

3086 ;: 

40GG REM **¥** up left side *##* 
401@ WHILE chary>! 

4626 dx=G:dy=-1:GOSUB S56@6:REM move 
4666 WEND 

9676 RETURN 

4086 : 

3G06 REM **#** diaqonally ###* 

5616 WHILE chary<25 AND charx<28 
5@2@ dx=1i:dy=1:GOSUB S554@6:REM move 
5466 WEND 

3674 RETURN 


3486 : 

So@G REM ****® general move routine *#** 
551@ LOCATE charx,chary:PRINT " ":REM ru 
bout old 


3926 charx=charxtdx:chary=charytdy 
593@ LOCATE charx,chary:PRINT man; 
55446 GOSUB 4466:REM delay 

535956 RETURN 

su6@ 3: 

6400 REM **¥#* delay *x**## 

661@ FOR i=1 TO delayval:NEXT i 
6426 RETURN 


Here, instead of incrementing or decrementing charx and 
chary explicitly using numbers we do so within the general 
movement routine at line 55@@ using two variables dx and 
dy. These variables represent the change in charx and 
chary, respectively, and are set just prior to calling the 
subroutine. If, say, you want to move horizontally to the right 
then you will want to increase charx by 1 each time and 
leave chary unchanged. To do this simply dx to 1 and dy to 
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0 before calling the general movement routine, as is done in 
line 1020 of this program. 

Structurally, the second version of the program is an 
improvement over the first, as the steps that produce move- 
ment are not duplicated in the second version. It must also be 
pointed out that the second version will run slightly slower 
than the first version as an extra subroutine level has to be 
called and some time may be wasted in doing unnecessary 
calculations; for example, calculating char y+dy when dy is 
0. In this simple program speed is not an important factor (in 
fact we have to put a delay loop in to artificially slow it down!) 
but in larger programs that require high-speed movement 
time spent doing unnecessary calculations and subroutine 
calls can slow movement down considerably. This structure 
versus speed discussion will be developed later in the book. 


An alternative method for defining characters 


This program shows an alternative way of defining the 
running-man graphic using binary number forms. These can 
be read straight from a set of DATA statements and the values 
used directly with SYMBOL to define the character. This 
method is quite useful as the character’s shape can be clearly 
seen reflected in the pattern of ones used in the DATA 
statements. 


1@ REM *#** alternative definition **¥¥* 
26 DIM d¢8)> 

36 MODE 6 

46 GOSUB 16@@:REM read data definition 1 
5@ SYMBOL 254,d(1),d¢2) ,d¢3) ,d¢4) ,d¢5),d 
£6) ,0d¢7) ,d(8) 

66 GOSUB 1@00:REM read data definition 2 
76 SYMBOL 255,d¢1),d¢2) ,d¢3) ,d(4) ,d(5),d 
(6) ,d€7) ,d¢8) 

86 LOCATE $,12:PRINT CHR#(254);:PRINT CH 
R#$¢ 255) 

9@ END 

146 : 

1606 REM #*** read data ¥2x* 

1961@ FOR a=i TO 8 

1626 READ déa> 
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1936 NEXT a 

1646 RETURN 

1656 : 

1666 REM **#* definitian 1 x#x# 
1678 DATA &X@0611606 
1686 DATA &xX@4611006 
1@9@ DATA &xX@G614016 
11@@ DATA &X61i111116 
111@ DATA &X@16116006 
112@ DATA &XGG011116 
113@ DATA &xX11119018 
1194@ DATA &X16660G11 
115@ : 

1166 REM *##* definition 2 #### 
1176 DATA &xX@6011400 
1186 DATA &X@6611646 
11980 DATA &X@1010006 
126@ DATA &X@111111@ 
1210 DATA &X@G611016 
1226 DATA &X@1111666 
1236 DATA &X@1610606 
124@ DATA &X@6611606 


Controlling the action 


The movement in all the animation examples so far has been 
directed by the computer; you, the user, have had to sit 
passively and watch the action taking place. Let us now look at 
allowing the user to interact with a program, directing 
movement themselves: There are two main ways in which the 
user can communicate with a running program: either by 
pressing keys on the keyboard or by moving the handle of a 
joystick. On the Amstrad CPC range these two methods are 
closely interrelated and we shall therefore look at both 
methods in this section. 


Keyboard control 


You may well be familiar with the INPUT command. This 
command allows you to type in variable values or an 
alphabetic response at some stage during a program. This 
command is not suitable for controlling animation for two 
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reasons. Firstly, it copies anything typed in at the keyboard 
onto the screen and, secondly, the program pauses waiting for 
the user to type in a response and press the ENTER key before 
continuing with the program. It is seldom desirable to print 
keyboard characters to the screen during a game, and having 
the program stop each time a direction control instruction is to 
be typed in will not allow the program to have continuous 
movement. In addition to INPUT there are two other 
commands that allow you to communicate with a running 
program from the keyboard. These are INKEY$ and INKEY. 
Both these commands will register a keypress on the keyboard, 
but do not copy the keypress to the screen or cause the 
program to pause if no key has been pressed. These commands 
do, however, work in different ways. 

To understand the differences between these two commands 
we must understand a little about the way in which the 
keyboard sends signals to the computer. Electronically the 
keyboard is made up of a grid (or matrix) of electrical wires 
underneath the keys. Pressing a key causes an electronic signal 
to be set up in one of the wires in the matrix. The keyboard 
matrix is scanned every so often (around 50 times a second) by 
the computer’s operating system, looking for signals. If there is 
a signal in one of the wires then the operating system knows 
that a key is being pressed and it also knows which key is 
being pressed from the particular wire in the matrix that 
carries the signal. (Even when there is no BASIC program 
running the operating system is scanning the keyboard and 
turning key presses into characters that it prints on the screen!) 
Often, if the person is typing very quickly, the keypresses 
happen too fast to be processed immediately. The operating 
system therefore places them in a ‘waiting area’ where they 
form a queue. This queue is known as the ‘keyboard buffer’ 
and it is in the use of this keyboard buffer that the differences 
between INKEY$S and INKEY are apparent. 

When the INKEY$ command is issued, it takes the 
character that is at the front of the keyboard buffer queue and 
holds it as a string. An example of this use is a loop that looks 
for a yes/no answer before moving on. 


10 ans$="" 
20 WHILE ans$<>"y" AND ans$<>"n" 
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30 ans$=INKEYS 
40 WEND 


In line 3@ the variable ans$ is assigned the character that 
is at the front of the keyboard buffer; the WHILE...WEND 
loop repeating until either a "y" ora '"n" character makes its 
way to the front of the keyboard buffer queue. This command 
has many advantages over INPUT but its main disadvantage 
in game control applications is that we (the programmer) have 
no idea how long the character at the front of the buffer queue 
has been languishing there waiting for an INKEY$ command 
to come and get it. Because the Amstrad CPC range keyboards 
have an automatic repeat on every key (in other words if you 
hold a key down it will keep sending new characters into the 
keyboard buffer), this can cause lack of responsiveness in 
control; as we shall see in a moment. To get around this 
problem Locomotive BASIC is kind enough to give us a 
different way of testing the keyboard: the INKEY command. 
Rather than taking characters from the front of the keyboard 
buffer, INKEY tests the keyboard matrix wires directly to see 
if a particular key is being pressed as the INKEY command is 
issued. Each key has its own INKEY number, and when an 
INKEY command is sent a value is returned that indicates 
whether the key in question is being pressed, or held together 
with SHIFT key, or together with the CTRL key. Try typing in 
this program that returns a value for the X key (INKEY 
number 63): 


5 pigsfly=0 
10 WHILE pigsfly=0 
20 A=INKEY (63) 
3@ PRINTA 
40 WEND 


With the program running you will see a stream of —1 
numbers. This value, returned by INKEY indicates that the X 
key is not being pressed. Pressing the X key will change the 
value to 0, whilst the key is being pressed. Now try pressing 
SHIFT and X together. A value of 32 is returned. CTRL/X 
returns a value of 128. A combination of SHIFT/CTRL/X 
returns a value of 160. In this way we can tell: 
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a) If the key in question is being pressed: —1 if not, 0 if 


pressed. 

b) If the key is pressed with SHIFT: a value of 32 returned if 
yes. 

c) Ifthe key is pressed with CTRL: a value of 128 returned if 
yes. 


d) Ifthe key is pressed with CTRL and SHIFT: a value of 160 
returned if yes. 


We can test the value returned in the normal way. For 
example, break into the program and replace line 10 with: 


10 WHILE A<>160 


This time the program will terminate if, and only if, the X 
key is pressed together with CTRL and SHIFT. 

A full list of INKEY numbers for all the keys is given in 
Appendix B. 

The following program demonstrates keyboard control in a 
simple catch game. Three characters are redefined to form a 
cup shape, the idea being to catch a falling ball in the cup. 


SE RERRRE ARERR ES PARES. 
Zac ate Pane fle 
SRR FERRERS SES 0 3 

Res RSA PERS 0 15 
Ce hee eenn B= 0 60 


| | 15 255 240 





a i a SERRE Re. 
SRN Ae Eee BARRE eS 
CHR$ (253) CHR$ (254) CHR$ (255) 
Figure 3.4 


The main loop of the program selects a random starting 
point at the top of the screen for the ball. The ball then drops 
down using a FOR...NEXT loop to increment the ball’s 
vertical coordinate, bal Ly. Each time this loop is executed a 
keyboard scanning routine is called, not once but twice (try 
omitting line 7@ and see what happens). This routine uses 
INKEY to see if the Z or X keys are pressed down and the 
horizontal coordinate of the cup, cupx, is decremented or 
incremented accordingly. Notice that checks are included to 
ensure that Cupx does not become too small or too large. An 
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upper limit of 38 is tested for rather than 40, as one might 
expect in mode 1, as the figure printed is three characters wide, 
occupying columns 38, 39 and 40 at its rightmost position. 
Notice also that the cup will ‘wrap around’, that is if it reaches 
one edge of the screen it will appear at the other edge. Having 
erased the old position of the cup, the new cup is printed at the 
updated position. Notice that even if the cup is not moved it 
will be erased and reprinted in the same place by this routine; 
a fact that accounts for the flicker in the final shape. Could you 
redesign the routine another way to overcome this? 


1@ REM **** Catch *#*= 

24 GOSUB 146@:REM initialise 

36 WHILE contflaqg=1 

4@ RANDOMIZE TIME 

S@ ball x=INTCRND(1)#46)+1 

64 FOR bally=1 TO cupy-i 

7@ GOSUB 24@0@:REM scan Keyboard 

e@ LOCATE ballx,bally:PRINT ball? 

?@ GOSUB 24@66:REM scan Keyboard 

1@@ LOCATE bGallx,bally:PRINT " " 

116 NEXT bally 

1z@ GOSUB S6G@@:REM test for catch 

1386 WEND 

14@ END 

1S@ : 

1660 REM #*¥** initialise s2x* 

1916 MODE 1:BORDER &@ 

1626 cupx=Z26:cupy=24 

1436 REM ** define characters ¥* 

164@ SYMBOL 2353,6,1972,192,246,60,15,3,64 
1456 SYMBOL 254,6,4,8,4,8,255,255,4 
1666 SYMBOL 255,6,3,5,15,66,246,1972,6 
1670 cup$=CHRS$( 253) +CHRS¢( 254) +CHRS( 255) 
1686 ballS=CHRF¢ 231 > 

1696 blank#=SPACES$( 3) 

1166 contflagq=1 

111@ RETURN 

1i26@ : 

2480 REM *#** scan for Keypress **#* 
2616 LOCATE cupx,cupy:PRINT blanks 
2626 IF INKEY¢71>9=@ THEN cupx=cupx-i:1F 
cupx<i THEN cupx=38 
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2636 IF INKEY(63)=@ THEN cupx=cupxti:IF 
cupx>38 THEN cupx=1 

2646 LOCATE cupx,cupy:PRINT cup 

2658 RETURN 

2666 : 

366GG REM **#* test for catch **** 

3018 contflag=6@ 

3626 FOR i=@ TO 2 

3630 IF ballx=cupx+i THEN contflag=1:i=2 
364@ NEXT i 

3856 RETURN 


An alternative to using INKEY is, of course, to ust 
INKEYS. Replace the original subroutine at line 2000 in thi 
‘Catch’ program with this subroutine that uses INKEYS. 


2666 REM **** scan for Keypress *#*#* 
261@ LOCATE cupx,cupy:PRINT blank? 

2615 char#=INKEY$:REM get char fom buffe 
r 

2620 IF char#="z" THEN cupx=cupx-1:IF cu 
px<l THEN cupx=38 

2636 IF char#="x" THEN cupx=cupxt+1:IF cu 
px>38 THEN cupx=1 

264@ LOCATE cupx,cupy:PRINT cup? 

265@ RETURN 


If you run this version of the program you will notice tha 
the cup is less responsive than in the original version of the 
program. In particular, when you hold down the Z or X key 
there is an immediate movement of one character but then < 
pause before the movement is repeated. As mentioned earlier 
the Amstrad CPC range’s keys have an auto repeat facility. The 
way in which a key repeats has two stages: an initial delay 
after responding to a press, followed by a series of shorte: 
delays between subsequent repeats. The normal repeat speed: 
are around 2/5ths of a second for the first delay, followed by 
1/25th-second delays subsequently. The reason for this longe: 
first delay is to avoid registering double characters wher 
typing. There is a command that allows us to change these 
delay times called SPEED KEY, its parameters being units o 
1/50th of a second. 
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SPEED KEY 20,2 
is therefore the normal repeat speed setting. Try typing in: 
SPEED KEY 20,10 


and then play with the cursor to see the difference altering the 
second delay period makes. You may wish to experiment with 
SPEED KEY to get rid of the response problem in the 
INKEY$ version of ‘Catch’, but, as a hint, remember to reset 
the repeat speeds to their normal setting just prior to exiting 
the program or you may have trouble typing single characters 
afterwards! 


Joystick control 


There are no less than three methods of interrogating a joystick 
plugged into the joystick port. The joystick can be scanned 
using INKEYS or INKEY, just as though it were an extension 
of the keyboard, alternatively it can be read using the new 
command JOY. Let’s look at each one of these in turn. 

A joystick is essentially made up of four direction buttons 
and one or two fire buttons. You can’t see the direction buttons 
but pushing the joystick handle one way or another causes the 
appropriate button to be pressed inside the joystick case. Just 
as each key on the keyboard has a CHR$ number (sometimes 
known as its ASCII code) so each of the five (or six) joystick 
buttons has an ASCII code that can be used to control 
movement. If you have a joystick try running this program, 
moving the joystick handle and pressing the fire button(s). 


5 pigsfly=0 
10 WHILE pigsfly=0 
20 aS=INKEYS 
3@ IF a$<>"" THEN PRINT ASCCadS) 
40 WEND 


The program prints up the ASCII codes that correspond to each 
of the joystick buttons as you press them. You should be able 
to verify that these are the ASCII values for a single joystick 
plugged directly into the joystick port. 
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UP 
11 (& OB) FIRE1 90 (& 5A 
FIRE2 88 (& 58 
LEFT <——_____ ————> RIGHT 
8 (& 08) 9 (& 09) 
10 (& OA) 
DOWN 


Joystick @ 
Figure 3.5 


Notice that a single joystick plugging directly into the port is 
referred to as joystick 0 and if the joystick has only one fire 
button then it will probably be ‘fire 2’. Using Amstrad’s own 
make of joystick it is possible to plug a second joystick into the 
first. This second joystick will return different ASCII values for 
each button if the SHIFT or CTRL keys are pressed as well. 
Where three numbers are given, the lowest is the button on its 
own, the middle is the button/SHIFT, and the highest is the 
button/CTRL. Where only two numbers are given these refer 
to button only and button/SHIFT values. Each of the buttons 
on joystick 1 has the same ASCII codes as a key on the 
keyboard. This is useful in programs where two joysticks are 


P 
38 (& 26) 
54 (& 36) 
FIRE 1 6 (& 06) 
70 (& 46) [F 
102 (& 66) 
LEFT <————_—_- —————> RIGHT 
18 (& 12) 01S 14) ES SS OF) 
82 (& 52) 71 (& 47) [G 
114 (& 72) = ee =H 103 (& 67) [< 
37 (& 25) 
53 (& 35) 
DOWN Joystick 1 


Figure 3.6 
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required. If the user has only got a single joystick then the 
action of the second joystick can be reproduced using the 
relevant keys as marked in the diagram, without having to 
alter the software. 

Joysticks can be interrogated in the same way as keys using 
INKEY. The INKEY numbers for the joysticks are also given 
in Appendix B. Note that it is possible to detect diagonal 
directions with INKEY whereas this was not possible with 
INKEYS. The following short program shows how this can be 
done, taking the diagonal direction between ‘up’ and ‘right’ 
for joystick 0. 


5 pigsfly=0 

10 WHILE pigsfly=0 

20 up=INKEY(72):right=INKEY(75) 

30 PRINT up,right; 

40 IF up=0 AND right=@ THEN PRINT "diag"; 
50 PRINT 

6@ WEND 


Note that the INKEY numbers for joystick 1 mirror the same 
keyboard keys as the ASCII codes used by INKEYS. 

The third method of interrogating joysticks is to use the 
JOY command. This function reads the state of the joystick 
buttons. The number returned has so-called ‘bit significance’. 
In other words, if the number returned is thought of as binary 
then each bit has a special meaning. In this case the less 
significant six bits correspond directly to the four direction 
and two fire buttons on the joystick, taking a value of 1 if the 
button is closed and 0 if it is open. The following short 
program reads joystick 0 using the JOY command and 
displaying the value returned as a binary number. 


10 CLS:pigsfly=0 

20 LOCATE 2,1@: PRINT "JOY(O)" 
30 WHILE pigsfly=0 

40 joyval=J0OY(O) 

5@ LOCATE 1,12 

60 PRINT BINSCjoyval,8) 

70 WEND 


Run the program to verify that the bits correspond to the 
joystick buttons as follows: 
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| Bit | Button Decimal value 


Up 
Down 
Left 


Right 
Fire 2 
Fire 1 
No function 
No function 





The second joystick can be read in a similar way using 
JOY(1). Both INKEY and JOY scan the joystick at the same 
speed (around 50 times a second) but the advantage of JOY 
over INKEY is that it returns a value that gives the state of all 
six joystick buttons, whereas each button has to be interro- 
gated separately by INKEY (as in the INKEY example above). 
Using JOY a diagonal direction is indicated by two direction 
bits being set. For example, the diagonal direction between 
‘up’ and ‘right’ would be returned as 00001001 or 9 in decimal. 
A further advantage of returning the joystick data as a 
bit-significant number is that individual bits can be isolated 
and tested using logical AND and OR, as outlined in Chapter 1. 
For example, testing to see if fire button 2 is pressed could be 
tested by the following BASIC statement: 


IF JOY(@)=16 THEN PRINT "FIRE 2 PRESSED" 


This would only work correctly if the joystick handle was in 
the central position when the fire button was pressed. If, for 
example, the joystick was pushed into the ‘up’ position and 
fire button 2 was simultaneously pressed then JOY (@) 
would return 00010001, i.e. 17 not 16, and the above test would 
fail. The alternative method is to isolate bit 4, the bit 
corresponding to fire button 2, and test it independently. The 
following statement does this: 


IF (JOY(@) AND 16)=16 THEN PRINT "FIRE 2 
PRESSED" 


If you are unsure of the reason behind this try writing out the 
eight-bit binary equivalents and performing AND in each pair 
of bits, as described in Chapter 1. As a further example the 
following test would test both fire buttons independently of 
the direction buttons to see if either were being pressed. 


Animation and Control 63 


IF (JOY(@) AND 48)<>@ THEN PRINT "BOMBS 
AWAY" 


To introduce a joystick into the ‘Catch’ game, the following 
subroutine should be used, in place of the existing one at line 


2000. 


2666 REM *¥** scan for Keypress *##* 
261@ LOCATE cupx,cupy:PRINT blanks 

2@2@ IF JOY¢@)=4 THEN cupx=cupx-1:IF cup 
x<1 THEN cupx=38 

2436 IF JOY¢@)=8 THEN cupx=cupxti:IF cup 
x>38 THEN cupx=1 

2646 LOCATE cupx,cupy:PRINT cups 

2458 RETURN 


The provision of these three methods of joystick interroga- 
tion make it easy to write software that allows either joystick or 
keyboard control. By slight alteration of the keyboard scanning 
routine, we can make the ‘Catch’ program work with either a 
joystick or keyboard, without having to select one or the other 
at the start of the program. The following example shows how 
this can be done using INKEY to read keypressed and joystick 
movements. 


2446 REM *#** scan for Keypress *### 
2616 LOCATE cupx,cupy:PRINT blanks 

2@2@ IF INKEY¢74)=@ OR INKEY¢71)=@ THEN 
cupx=cupx-1:IF cupx<l THEN cupx=38 

2636 IF INKEY¢75)=6@ OR INKEY¢63)=6 THEN 
cupx=cupxti:IF cupx>38 THEN cupx=1 

2449@ LOCATE cupx,cupy:PRINT cup 

2658 RETURN 


Of course, having multiple tests within such a routine will 
slow down the speed of the game slightly. If speed is vital then 
it will be necessary to design separate routines for joystick and 
keyboard input, asking the user to choose at the beginning of 
the program. 
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‘Stranded’ — assembling the cast 


‘Stranded’ is designed for use with either a single joystick or 
the cursor and ‘copy’ keys. Later we will design a proper title 
screen where the choice between cursor and joystick can be 
made, but for now, we shall use a temporary section of code so 
that we can test and use the joystick and cursor control 
routines given in this section. 


1256 ans#=""sLOCATE 1,12:PRINT "“‘c’ for 
cursor" 

1251 PRINT "“i* far jorstick" 

1252 WHILE ans#<¢}"Jj" AND ans$<o"c" 

1254 anst=INKEY# 

1256 WEND 

1258 IF anst="j" THEN jorflag=1 ELSE joy 
flag=b 

1266 CLS 


Before we start we must define the characters that will be 
used in the program. Some characters, such as the standing- 
man character, CHR$(248), and the explosion character, 
CHR$ (238), can be lifted straight from the normal character 
set, but other characters have to be tailor-made for the 
program. 


1756 REM **® user defined chars ¥** 
196@ SYMBOL AFTER 246 
1776 REM SYMBOL 255,14,8,24,36,16,16,16, 


198@ SYMBOL 254,56,56,18,252,144,40,68, 1 
199@ SYMBOL 253,56,56,19,252,144,16,16,2 


2666 SYMBOL 245,6,6,80,0,255,127,62,62 
2618 SYMBOL 247,28,28,72,63,9,28,35,97 
2626 SYMBOL 246,28,26,72,63,.9,8,8,24 
2636 transon$=CHRS( 22)+CHRE¢(1) 

2646 transoff$=CHRS(22)+CHRS( GO) 

2658 standman#=CHRS$¢ 248) :boatS=CHRS( 245) 
2676 exp] odet=CHRF( 238) 
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CHR$ (254) CHR$ (253) 
RUNNING RIGHT 





CHR$ (247) CHR$ (246) 
RUNNING LEFT 
Figure 3.7 


We also need to define the number of men that the player 
has at his disposal. In addition, to make the program more 
readable, the joystick directions are defined as variables. 


1686 numbermen=4 :ment=STRING#<( 7, CHRS¢ 248 


1896 : 
2226 REM **¥ joystick directions *# 
2236 left=4:right=S:centre=6:fire=16 


The player’s character must have its position and colour 
initialised. This routine does not form part of the main 
initialisation routine as later we will need to reset these 
parameters. This reset is therefore done separately before the 
main loop starts. Also included in the reset procedure are 
routines to print the number of lives the player has left in 
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terms of a number of standing-man characters. The variable 
mens$ was assigned as a string of these characters and LEFT$ 
is used to print the relevant number, as defined by number - 
men. 


2966 REM ****® reset routine **#** 

2916 mancol=white:PEN mancol :charx=1:cha 
ry=3 

2926 REM **® print number men left ** 
2736 IF fallflag=i1 THEN numbermen=number 
meni 

2746 IF numbermen<i THEN RETURN 

29356 LOCATE 1,1:PRINT LEFT#(men%,numberm 
en-1);SPACE#( 4-numbermen>? 

2968 RETURN 

2776 : 

SQ@G06 REM **#*® reset flaqs **#* 

3616 boatflag=@:fallflag=@:resetflag=G 
3624 fetchflag=@:carryflag=6 

3636 RETURN 

3446 : 


The purpose of fall flag inline 29390 is to signal when 
a player has lost a life. We will encounter the routines that set 
this flag later. 

The loop that calls the relevant movement control routine 
forms part of a main program loop. This calling loop is a simple 
WHILE...WEND structure, terminated by any of the three 
flags mentioned in line 1460 taking a non-zero value (i.e. 
being ‘set’). At this stage no routines exist that will set these 
flags so the loop’ will continue indefinitely until ESC is hit 
twice. After adding all the program segments from this section, 
you should be able to move the player’s character under cursor 
or joystick control. 


1366 REM XXX XKRXEKRKEKREKRKEKE 

1376 REM * main action loop * 

1386 REM XR KEKHESREKEEKREKESSE 

13708 : 

1466 WHILE boatflag=@ AND fallflagq=@ AND 
endflag=8 

1476 IF joyflag=1 THEN GOSUB 3900 ELSE G 
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OSUB 84¢4@ 
148@ WEND 
1497@ : 


Note the use of the IF...THEN...ELSE structure to 
determine whether the joystick or cursor control routines are 
called, the value of j oy f Lag having been assigned when we 
chose whether we wished to use the cursor keys or the 
joystick. 

The joystick and cursor control routines are fairly self- 
explanatory, the subroutines at lines 4000 and 4100 
handling left and right movement of the player’s character. The 
subroutine at line 4200 prints a standing man, if no 
movement is required. The use of Ladf lag in line 3930 
and 8430 will be discussed in a future chapter. The 
movement routines each use a pair of toggled characters to 
simulate a running action, either to the left, or to the right. 


390 REM ###*® scan joystick **## 

3718 IF JOY(@.=left THEN DI:GOSUB 4608@:G 
OSUB 436@:EI 

3926 IF JOY(G@)=riqght THEN DI:GOSUB 4146: 

GOSUB 434G6:EI 

3936 IF JOY(@)=centre AND ladflag=@ THEN 
DI:GOSUB 4266:GOSUB 4366:E] 

394@ RETURN 

3950 : 

8466 REM ***#* cursor control an ladders 
etc KX 

S416 IF INKEY¢8>=@ THEN DI:GOSUB 4@6@:GQ 
SUB 430@:EI 

426 IF INKEY¢1>=@ THEN DI:GOSUB 4166:G0 
SUB 436@:EI 

84936 IF INKEY¢19<>@ AND INKEY*8)<>@ AND 
ladflag=@ THEN DI:GOSUB 426@:GOSUB 4394: 

EI 

8446 RETURN 

6456 : 

4660 REM ***#* move left *x*## 

9616 chartog=1-chartoq:REM character typ 

e 

4@26@ LOCATE charx,chary:PRINT"” " 
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463@ charx=charx-1:IF charx<1 THEN charx 
=1 

4@4@ LOCATE charx,chary:PRINT CHRS(2444+c 
har tog) 

4676 RETURN 

4686 : 

4166 REM **#** move right #2**# 

4116 chartog=1-chartog:REM character typ 
e 

412@ LOCATE charx,chary:PRINT" " 

4136 charx=charx+1:IF charx>2@ THEN char 
x=24 

414@ LOCATE charx,chary:PRINT CHRS(253+c 
har tog) 

417@ RETURN 

4186 : 

4206 REM #*#* standing still =x** 

4216 LOCATE charx,chary:PRINT standmant 
4226 RETURN 

4236 : 


The subroutine call to 4300 involves testing under the 
player’s figure to see if he is walking over a gap in the 
walkway. Testing for collisions (or in this case the lack of 
collision between the player’s character and the walkway!) is 
one of the topics discussed in the next chapter so for now we 
will simply insert the subroutine’s title and RETURN state- 
ment. This dummy routine will stop the program crashing. 


4306 REM ****® check under figure *##* 
436@ RETURN 


2. Program structure 

The structure of the program is now developing rapidly. We 
have four preparatory routines and a WHILE...WEND loop 
enabling the program to scan the joystick or cursor keys. 
Notice how a binary (i.e. two possible outcomes) decision can 
be represented on a structure diagram, the true and false 
branches corresponding directly to the THEN and ELSE part 
of the IF...THEN...ELSE construct. It is also easy to 
show how the ‘scan joystick’ and ‘scan cursor keys’ routines 
can share the same movement subroutines. 
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Program structure 
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Chapter Four 


High-resolution 
graphics 


In this chapter: 
Absolute and relative plotting 


PLOT, DRAW, MOVE, PLOTR, DRAWR, MOVER, XPOS, 
YPOS 


Point testing 


TEST; TESTER 
Light cycles program 


Three-dimensional effects 


Drawing prisms, circles and ellipses 

Three-dimensional circles program 

Three-dimensional net drawing, three-dimensional 
graphics program 


Rotating figures 


Coordinate transformations 
Rotating figures program 


Mixing text and graphics 


TAG, pixel movement of characters 
Frame synchronisation 
Converting between coordinate systems 


664 Graphics enhancements 
FILL, MASK, GRAPHICS PEN, GRAPHICS PAPER 
‘Stranded’ 


Drawing ladders and pillars 
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The Amstrad CPC range have excellent high-resolution 
graphics that allow us to create detailed pictures and to mix 
graphics and text on the screen. High-resolution graphics 
work on a coordinate system that is essentially the same in all 
three modes. To identify a point on the screen we have to 
specify an x coordinate and a y coordinate. (Most of you will 
remember drawing graphs and plotting points like this at 
school.) The origin, the point where x and y are both zero is 
normally in the bottom-left corner of the screen and we can 
plot values of x up to 639 and values of y up to 399. This 
diagram shows the layout. 


399 
graphy 


. point (graphx,graphy 





0 graph x 
639 


Figure 4.1 


The simplest way to make a high-resolution point appear on 
the screen is to PLOT it. Try typing: 


MODE 2:PLOT 0,0 


to see a point appear at the origin. If you try the same in mode 
1 and mode 0 you will see that we get larger points but still in 
the same place. More of this later. 

We can set the logical mode colour for high resolution by 
adding a third number to the PLOT command. Try: 
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MODE 0:PLOT 0,0,2 


to change the colour of the point plotted to cyan (LMCN 2). 
Notice that the colour of the READY printed after the PLOT 
command has not changed colour. We can have independent 
high-resolution and text colours operating at the same time. 
Conversly, if we change the text colour using PEN 2 and then 
plot a point using LMCN 1, we get a yellow point, but the 
READY is printed in cyan. Try: 


PEN 2:PLOT 0,0,1 


The thing to remember about text and high-resolution 
colours is that both use the logical mode colour number system 
to identify colours, but the colours selected for each type of 
graphic are otherwise unconnected. 

As well as PLOT we can DRAW on the screen. A DRAW 
command has a pair of coordinates and draws a line between 
the last point plotted and the point whose coordinates form 
part of the DRAW statement. For example, type in: 


DRAW 100,50,3 


This draws a line between (0,0), the last point plotted and 
(100,50) in LMCN 3, red. If we now type: 


DRAW 200,0,2 


we get another line in cyan, starting at (100,50) and 
ending at (200,0). This line starts at (100,50) because 
that was the last point plotted before the new draw command 
was given. Most programmers think of the way that a 
computer remembers the last point plotted each time as an 
invisible graphics cursor that moves around the screen as we 
enter high-resolution graphics commands. We can find the 
position of this invisible graphics cursor at any time. Its 
coordinates are held in two special variables XPOS and YPOS. 


Ebys 
PRINT XPOS,YPOS 


If you have typed in all the commands given earlier then the 
values of XPOS and YPOS will be 200 and 0, respectively. If 
we wish we can move the graphics cursor around without 
plotting or drawing using the MOVE command. Type in: 
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MOVE 500,100:DRAW 0,0 


to.move the graphics cursor out to a new start point and draw a 
line back to the origin. 

Press ENTER a few times and you will see the text scroll up 
the screen. Notice that any high resolution also scrolls up. You 
must always be careful, when creating a high-resolution 
picture that you do not print text at the bottom of the screen 
and cause the screen to scroll, or your display will be spoilt. 

PLOT, DRAW and MOVE are known as ‘absolute’ high- 
resolution commands. The coordinates used to specify points 
are actual positions on the screen. There is another group of 
commands that allows you to plot or draw ‘relative’ to the last 
point plotted. These are PLOTR, DRAWR and MOVER. Type: 


CLS:PLOT 320,200 


to clear the screen and plot a point roughly in the middle. Now 
type: 
PLOTR 10,10 


This does not plot a point at the ‘actual’ point (10,10) but 
at a point near to the first one plotted. What the second 
command really does is to plot a point 10 units along and 10 
units up from the first point. These are called the x and y 
‘offsets’ from the previous position. DRAWR and MOVER work 
in the same way. 


DRAWR 100,50,3 


will draw a line from the current cursor position to a point 100 
units along and 50 units up from that position. 

We can use either method to plot points and draw lines on 
the screen. Often the relative plotting method is useful for 
designing short graphics routines where a shape can be drawn 
on the screen by, firstly, moving to a point using MOVE and 
then creating the shape relative to the starting point by using 
MOVER, PLOTR and DRAWR. This short program demons- 
trates the method, using a general triangle-drawing sub- 
routine to place triangles all over the screen. 


1@ REM **** relative triangles **2#* 
2@ MODE 1:BORDER & 
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36 CLS 

4@ WHILE INKEY$="" 

3@ x=INTCRND(12*59@) 

66 y=INTCRND(1)2#356) 

7@ GOSUB 1466:REM draw triangle 
66 WEND 

?6 END 


1666 REM *#**® general triangle #x*** 
161@ MOVE x,y 

1626 DRAWR 56,6 

163@ DRAWR -25,43 

164@ DRAWR -25,-43 

14658 RETURN 


A particularly useful feature of the collection of high- 
resolution commands is the command that tests a point on the 
screen to see what colour is there. TEST(x,y) will return 
the logical colour number of the point with coordinates 
(x,y). This facility allows us to test for collisions in games. 
There is, of course, a relative form of the TEST command, 
TESTR, that uses offsets to specify the point to be tested, 
rather than using absolute coordinates. 


Light cycles 


The following program demonstrates much of the ground we 
have covered in the early chapters of this book. It is a game for 
two players, both controlling light cycles from the keyboard. 
Player 1 uses the W, X, A and D keys and player 2 uses the 11, 
8, 4 and 6 keys on the numeric keypad alongside the main 
keyboard. The idea is to avoid running over the opponent’s 
trail, or doubling back over your own trail. 

The program works by scanning all eight of the players’ keys 
and updating the coordinates of the front of each light cycle. 
Before the point that is to make the new front of the cycle is 
plotted the position is tested for any other colour except logical 
colour 0, the normal blue background. In this way collisions 
between cycles, or between a cycle and the border or between 
a cycle front and its own tail are all tested for. The explosion 
effect is created by drawing 100 random lines relatively out to 
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points up to 50 units from the point of the collision. In this 
program we have combined key control with high-resolution 
plotting and collision detection for the first time. 


14 REM **#*#* light crcles ##x#* 
26 GOSUB 260@:REM initialise 

36 WHILE piaqfly=6 

4@ GOSUB 160@:REM scan Keys etc 
36 WEND 

60 END 


1660 REM **®** scan Keyboard etc **## 
1616 IF INKEY¢59)<>-1 THEN dx=@:dy=2 
1626 IF INKEY¢463)<>-1 THEN dx=@:dy=-2 
1630 IF INKEY¢69)<>-1 THEN dx=-2:dy=8@ 
1646 IF INKEY¢61)<>-1 THEN dx=2:dy=6 


146@ IF INKEY¢119¢>-1 THEN dm=@:dn=2 
1670 IF INKEY¢14)<>-1 THEN dm=@:dn=-2 
1686 IF INKEY(2@)<¢>-1 THEN dm=-2:dn=6 
169@ IF INKEY‘4)<¢>-1 THEN dm=2:dn=6 


ee 
_ 
@ 
cas] 


111@ REM *#® add to coordinate values ¥*# 
1120 x=x+dx:y=y+dy 

1136 m=m+dm:in=n+dn 

114@ REM ** test for collisions ## 

1156 IF TEST¢x,y»?<>@ THEN f=1:GOSUB 6@606 
:RETURN 

116@ IF TEST(m,n><>6 THEN f=2:GOSUB 6646 
RETURN 

1176 REM ** plot new cycle fronts #* 
1180 PLOT x,y,1 

1196 PLOT m,n,zZ 

1208 RETURN 

1216 : 

2666 REM *#** initialise *x## 

201@ MODE 1:BORDER @ 

2626 GOSUB 36@6:REM draw border 

26346 GOSUB 4@6@:REM set up scores 

2646 GOSUB S@66:REM reset coords 

205@ INK 2,26 

2666 RETURN 

2676 : 


76 Game & Graphics Programming 


3606 
3016 
3626 
3638 
3646 
38656 
3466 
3070 
4066 
4616 
4626 
4636 
4646 
4656 
4666 
3666 
3616 
3626 
3836 
2046 
4666 
6018 


REM *#** draw border s/r #*#* 
MOVE 16,14 

DRAW 14,384,353 

DRAW 629,386 

DRAW 629,16 

DRAW 14,18 

RETURN 

REM *®** print scores s/r *¥*## 
LOCATE 3,1 

PRINT"playver i:"sesl 

LOCATE 28,1 

PRINT"playver Z:"3s2 

RETURN 


REM *##*# reset coords etc **#* 
X=56 : y=206 :m=586 :n=206 

Gx=2: dy=6: dm=-2:dn=4 

RETURN 


REM *##* collsion s/r ###% 

IF f=1 THEN s2=s2+1 ELSE si=si+ti 
GOSUB 7666:REM explasian 

CLS 

GOSUB 3466: REM draw border 

GOSUB 40@@: REM inc scores 

GOSUB S@6@:REM reset coords 

LOCATE 18,12 

PRINT"press a Key to restart” 
JS="dummy" :WHILE j#<>"": jS=INKEYS:W 


af=""WHILE at=""s ad=INKEYS: WEND 
LOCATE 16,12 

PRINT SPACES(24):REM rubout messaqe 
RETURN 


REM *#*** explosion *#*x* 
IF #=1 THEN ex=x:er=y ELSE ex=m:er= 


FOR i=i TO i166 

MOVE ex,ey 
rPx=Z5-INTCRNDC 1) #56412 
ry=25-INTCRND(19#56+1) 
CI=INTCRND¢C 15> *S4+1) 
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76708 DRAWR rx,ry.cl 
7686 NEXT i 
749@ RETURN 


Other points of interest, besides the control and collision 
aspects of the game, are the way in which a flag, f, is used to 
indicate which cycle caused the collision before calling the 
collision subroutine to update the score and reset the game. In 
addition when the players are asked to press a key to restart 
there is a good chance that there will already be a character in 
the keyboard buffer that will trigger an immediate restart if we 
just use a simple loop and INKEYS$, as we have before to 
detect a keypress. Instead, a special loop is used first, not to 
detect a character in the keyboard buffer, but to clear the 
keyboard buffer out. Once the buffer is empty we can then 
employ the more usual loop looking for a keypress. Clearing 
the keyboard buffer, prior to testing for a keypress, is often 
necessary in games that are controlled from the keyboard. 


Three-dimensional effects 


The Amstrad CPC range’s high-resolution graphics can be 
used to simulate three-dimensional shapes on a flat monitor 
screen. One method is to introduce ideas of depth and 
perspective by overlaying similar shapes of decreasing scale. A 
simple form of this technique can be easily demonstrated 
using a general purpose triangle-drawing routine, similar to 
that used in a previous program. This time, however, we 
should include a facility that will allow us to alter the size of 
the triangle each time we call the subroutine. By moving the 
start point of the triangle progressively up and right, and 
decreasing the size of the triangle each time we do so, we can 
produce a simulated three-dimensional shape like a prism (or 
‘Toblerone’ box shape). The following program uses such a 
general triangle-drawing routine and a loop in which the 
triangle’s start point is altered, and the triangle’s size is 
steadily diminished. 


1@ REM **** 3D prism **** 
26 GOSUB 1@6@:REM initialise 
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36 FOR dx=15 TO -15 STEP-2 

46 GOSUB 4@6@:REM reset size,x,y 
36 GOSUB 246@:REM draw prism 

66 NEXT dx 

76 END 


1666 REM *#** initialise **#* 

1616 MODE 2:DEG 

1626 GOSUB 460@:REM reset size,x,y 
1036 dy=2:ds=8 

1646 RETURN 


2666 REM *#*** draw prism **®*# 
24@1@ WHILE size>1@@ 

2626 MOVE x,y 

2634 GOSUB 2676:REM draw triangle 
2696 x=x+dx:y=yryt+dy:size=size-ds 
2656 WEND 

2666 RETURN 


S60G REM *#2#* draw tringle **## 


3616 heiqht=sizex*SIN‘¢ 6a) 
2626 halfbase=size/Zz 

3836 DRAWR size,@. 

3446 DRAWR -halfbase, height 
3656 DRAWR -halfbase,—-heigqht 
3666 RETURN 


4606 REM **## reset size,x,y ¥¥#* 
9616 CLS 

9620 size=Z24G:x=256:yr=146 

94@36 RETURN 


For those interested (this information is not essential!) an 
equilateral triangle can be drawn using simple rules of 
trigonometry. The height of the triangle is simply the side 
length, $1ze, multiplied by SIN(6@). 

The triangle’s three sides are drawn anticlockwise from the 
bottom left corner using the relative offsets hal fbase and 
height. 

The perspective of the final prism shape is dependent on 
three things: the horizontal and vertical moves between one 
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start point (x,y) 


halfbase halfbase 


Figure 4.2 


triangle’s start point and the next, and the amount by which 
size decreases between each successive triangle. In the 
program these three factors are called dx, dy and ds. To show 
how the perspective can be changed by altering one of these 
factors, the program draws a number of prisms, each time 
decreasing dx by 2. The result is a simple horizontal shift in 
perspective of the shape seen. You may like to modify the 
program to see what effect progressively altering dy or ds has 
on the shape. 


Circles and ellipses 


Although the Amstrad CPC range’s set of high-resolution 
commands does not include a command for drawing circles we 
can easily use the commands we do have available to create 
circles. This simple program shows how: 


1@ REM **** draw a circle **## 
26 MODE 1:RAD 

36 radius=15@:cx=326:cyry=266 

4@ MOVE cxtradius,cy 

5S@ FOR angle=@ TO 2*#PI STEP @.2 
68 x=cxtradius*COSCangle?) 

76 y=Ecytradius#SINCangle? 

86 PLOT x,y 

76 NEXT angle 

166 PLOT cxtradius,cy 
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The program does not actually draw a complete circle but a 
series of dots around its circumference. The number of dots 
can be altered by changing the STEP length in the FOR 
statement at line 50. A STEP of 0.1 for example gives many 
more dots on the circumference and we get a better-defined 
circle. It is actually impossible to draw an exact circle on a 
computer screen, but the more points we calculate around the 
circle, the nearer we get to that elusive perfect circle. To join up 
the dots to make an unbroken circle can be done by 
exchanging the PLOT statements in lines 80 and 100 for 
DRAW. Try experimenting with different STEP lengths. You 
will find that there is a trade-off between speed and shape; the 
smaller the STEP used, the better the circle’s shape, but, as 
more points are calculated and drawn, the slower the circle is 
drawn on the screen. 

Points on the circle are found by using the SIN and COS 
functions to calculate the x and y offsets from the centre of the 
circle. The loop calculates points by increasing the angle from 
@ to 2*PI radians (or 0 to 360 degrees). 





Figure 4.3 


One of the advantages of using this method to plot circles is 
that it can be easily adapted for drawing ellipses. We can 
squash the shape of the circle vertically by multiplying the y 
value for each point on the circle by a number less than 1. Try 
altering line 70 to: 


70 y=cy+(CradiusxSINCangle))*«@.5 
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and run the program. You will see that the vertical width of the 
original circle has been halved, forming an ellipse. 


Three-dimensional circles 


An alternative way to view an ellipse like the one just drawn, 
is as a three-dimensional circular hoop viewed from an angle. 
This program uses this fact to produce some impressive 
three-dimensional effects. The program works by calculating a 
set of points on an ellipse and then using those points as the 
centres of smaller circles. The program allows you to enter a 
number of parameters. The following table shows what each 
parameter does and gives three example sets for you to try 
with the program. 









































Parameter Example 1 | Example 2 | Example 3 Comments 

Start radius 80 Initial radius of 
small circles 

Reduction ratio 0.98 1 0.97 Reduction of 
small circles’ 
radius factor 

Number of 200 100 61 Total number of 

circles small circles 
drawn 

Aspect ratio 0 0.6 Angle at which 
large hoop 
appears to be 
drawn 

Number of Total number of 

circuits times around 










large hoop 





By altering the values of the five parameters different shapes 
can be made to appear, from simple doughnuts to more 
complex figures that appear to twist inside themselves. The 
three example parameter sets given in the table demonstrate 
three very different shapes. Small modifications in one or more 
parameters can make interesting changes to the basic types 
shown. 


iG REM ##** SD circles *2#2* 
2@ MODE 2 

36 INFUT"etarting radius" yer 
4@ INPUT"reduction ratio"irr 
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S@ INPUT"number of circles"jnc 
66 INPUT"aspect ratio"sar 

76 INPUT"number of circuits"scn 
86 GOSUB 1806:REM print data 

96 ORIGIN 326,266 

196 r=156 

116 GOSUB 2606:REM draw pattern 
12@ END 


136 


REM #*** data output s/r #*¥*# 
CLS 


LOCATE 16,1: PRINT"starting radius" 
LOCATE 56,1:PRINT"reduction ratio"; 
LOCATE 16,2:PRINT"number of circles 


LOCATE S@,2:PRINT"“aspect ratio";ar 
LOCATE 16,3:PRINT"number of circuit 


RETURN 


REM **#** large circle s/r #### 
MOVE r,@ 

RAD 

$Q=2*Pl¥cn/nc 

FOR i=6@ TO nc 

ag=i*sq 

x=r *xCOS¢( aq? 

y=(r#SINCag) ar 

GOSUB 3666: REM small circles 
NEXT i 

RETURN 


REM ##**® small circles s/r *#*¥* 
MOVE x+sr,y 

FOR j= @6 TO 2*PI STEP 6.2 
m=x+sr*COS¢ j> 

n=y+srx*#SIN¢ i> 

DRAW m,n 

NEXT J 

DRAW x+sr,y 

sr=srerr 

RETURN 
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Three-dimensional graphics 


An alternative to creating three-dimensional effects by using 
repeating similar figures is to represent the three-dimensional 
shape as a net; in other words, as a set of crossing lines that 
define the surfaces of the figure. This technique is very 
popular in computer-aided engineering design and commer- 
cial computer systems allow the net figures to be rotated so 
that they can be viewed from different angles. The three- 
dimensional graphics program given here uses mathematical 
functions to create three-dimensional nets, calculating a series 
of lateral lines across the screen, and a second series of lines 
appearing to go into the screen from the same function. Four 
examples have been given in the subroutines starting at 
4000. In each subroutine a mathematical formula links x, y 
and z. It is the relationship between these three variables that 
gives each net its distinctive shape. You can experiment with 
your own mathematical formulae by replacing the one given in 
the subroutine at line 4300. 

The methods of calculation are rather complex but are based 
on a two-dimensional array, each element representing a point 
on the horizontal plane (the x—z plane). The initial calculation 
routine uses the formula given in the relevant subroutine to 
calculate a corresponding y value for each point on the plane. 
The array, therefore, holds the height of the figure above each 
point on the plane. The array is then scanned twice to produce 
the lateral and depth lines that go to make up the net. 


16 REM *#*##* 3D Graphics **#* 

26 GOSUB 16@6:REM initialise 

26 FOR cc=1 TO 4 

46 GOSUB 26@66:REM calculate 

234 GOSUB 364@:REM draw shape 

60 REM ** await Keypress ** 

76 JS=INKEYS:WHILE jS<>"": jS=INKEYS:WEND 
8@ as="""WHILE at="":atg=INKEYS :WEND 
9@ NEXT cc 

166 END 

116 : 

1666 REM *#2* initialisation s/r ##e# 
1916 MODE 2 
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1926 ac=64G:hi=46G:up=-1:st=1ixg=12:zqQ=7 
1436 wi=INTCac/xa/2) 

1446 de=INTChi/zaq/3> 

1465@ DIM ptwi,de? 

1664 RETURN 

1476 : 

2466 REM #**#* calculation s/r ###*% 
261@ CLS:INK 1,24,1 

262@ LOCATE 28,1:PRINT"Please Wait - Cal 
culating" 

2636 FOR a=-de/z2 TO de/2 

26046 FOR b=-wi/2 TQ wi/2 

2656 x=24#a/wi :z=26eb/de 

2066 y=26*(b-wi/2)/de 

2476 ON cc GOSUB 4066 ,4166,4206 ,4366 
2686 ptbtwi/2Z,atde/2)=yexup#hi 

269@ NEXT b,a 

216@ RETURN 

Z1iiG@ : 

3666 REM *#** draw shape sr ##2¥ 
361@ CLS 

3626 REM ** title and colour #* 

3636 ON cc GOSUB 54@6,5196,5266,5366 
Sa4@ : 

3456 REM ** lateral lines ** 

S466 FOR z=1 TO de 

3670 xb=xg¥zizb=hi/2t+z¥zgtstxup 

3686 xo=xbtxg:zo=zb-zg-ptl,z) 

367@ FOR x=1 TO wi 

S1i6@ xn=xbt+x*¥xqizn=zb-x*¥zqQg-ptx,z) 
311@ MOVE xo,zo:DRAW xn,zn 

Si2G@ xo=xn:zo=zn 

313@ NEXT x,z 

314@ : 

3156 REM ** depth lines *# 

3166 FOR x= 1 TO wi 

317@ xb=xqg¥x+de¥xg:zb=hi/2-x*zqtdex#zqrst 
*up 

S186 zo=zb-zq-p(x,de-1):xa=xb-xq 
3196 FOR z=@ TO de-1 

3S2Z0G xn=xb-z*xqgizn=zb-z#¥zq-ptx,de-z) 
3216 zn=zb-z¥zq-p(x,de-z) 

3226 MOVE xoa,za:DRAW xn,zn 


3238 
32468 
3256 
3266 
4006 
4016 
4626 
4636 
4166 
4116 
4126 
4136 
4146 
42060 
4216 
4226 
/15 
4236 
4246 
4366 
4316 
4326 
4336 
4346 
S666 
3818 
a 26 
S838 
=a 4@ 
a1 6G 
3116 
3126 
3136 
7146 
3266 
3216 
3226 
3236 
3246 
3346 
3316 
33268 
3336 
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xXO=xKnN: ZO=Z2Nn 
NEXT z,x 
RETURN 


REM **** simple plane #2#* 
YECSIN¢G x)+CO05¢(299/45 
RETURN 

REM *#** hemishere xxe 
fc=60-x"*2-z°2 
y=SQRCFfc#CSGNCFcd+199/36 
RETURN 


REM *###* pillar #### 
fc=x*2+z"2 
Y=SGNCINT( 26/4099/3+SGNCINTCS5S/¥¢0)) 


RETURN 

REM ##2* your shape ##2* 
fc=LOG(S6*#ABS(2z9+6.0801) 
yecfcoxeSGNC fct+19-S9/15 

RETURN 

REM *##*# plane title s2## 

INK 1,28 

LOCATE 34,1:PFRINT"simple plane" 
RETURN 

REM #*#* hemisphere title *#*# 
INK 1,24 

LOCATE 35,1:PRINT“hemi sphere" 
RETURN 


REM ##2*% pillar title #2#* 

INK 1,15 

LOCATE 37,1i:FRINT"pillar" 
RETURN 

REM ##**# your shape title x#2## 
INK 1,11 

LOCATE 35,1:PRINT"Your Shape" 
RETURN 
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Rotating figures 


It is often useful in animated games to enable shapes to rotate, 
often under a player’s control. The principle of the technique is 
straightforward, although BASIC is a little too slow to achieve 
a smooth rotating effect. The basis of the technique is to 
transform each pair of coordinates that define the shape to be 
rotated, by applying a pair of formulae. If (x, y) are the original 
coordinates of a point in the shape and (x’,y’) are the 
coordinates of the point after rotation, then the following 
assignments generate the new point position from the old: 


x’=x*COSCangle)—-y*SINCangle) 
y’=x*SINCangle)+yx*COSCangle) 


An alternative way of writing these equations is as a 
transformation matrix: 





Figure 4.4 
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cos(angle —sin(angle) x 


ly’ y 

The variable ‘angle’ is the angle of rotation of the shape 
about the origin, to the horizontal. Although you do not need 
to understand the mathematics that underlie this pair of 
equations some readers may be interested to know how they 
are derived. 

If we think of a point in the original x-y plane, P, with 
coordinates (a, b), and rotate the coordinate plane through @ 
degrees to form a new plane x’—y’, then the new coordinates of 
P will be (a’, b’) as marked on the diagram. By using simple 
trigonometry on the right-angled triangles marked we find 
that: 




















sin(angle) cos(angle) 


a’ =a cos(9)—b sin(g) 
b’ =a sin(#)+b cos(g) 


The following program demonstrates the rotation principle 
using a simple arrowhead shape. The original coordinates of 
the four corners of the shape are held in the arrays x( ) and y( ) 
and these are used to generate rotated coordinates for any 
given value of angle. The shape looks like this: 


(—10,15) 





Figure 4.5 
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When the program is run you can rotate the figure about the 
point O by pressing the left and right cursor keys. When one of 
these keys is pressed ang Le is increased or decreased by a set 
amount and the routine at line 3000 is called to generate a 
new set of coordinates for the rotated shape. Note that the new 
position of point O, (0,0), is not rotated, as this will remain 
(0,0) no matter what the angle of rotation. The subroutine that 
actually draws the shape from the coordinates generated by 
this routine, at line 5000, is called twice, once to erase the old 
position and again to draw the new shape once its coordinates 
have been calculated. One particular feature of the Amstrad 
CPC range that makes it easy to rotate shapes in BASIC is their 
ability to move the graphics origin. This is normally in the 
bottom-left corner of the screen but can be moved anywhere, 
using the ORIGIN command. The origin is moved to the 
middle of the screen during the initialisation routine, but we 
can use this feature to allow us to move the shape around the 
screen, whilst still allowing easy rotation of the figure. The 
routine at line 4000 does this. To make the arrowhead shape 
move in the direction it is pointing is very simple. We simply 
have to move the origin. 





Figure 4.6 


To alter the coordinates of the origin so that the arrowhead 
moves ‘ds’ units along the line it points, the coordinates of the 
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old origin O must be increased by ds*COS(g) and 
dsxSIN(g). 


1@ REM ##2#2 rotating fiqures #ee*s 
26 GOSUB 1466 
34 colour=cyan:GOSUB S@@@:REM draw shape 


46 WHILE piqsfi+r=8 
Ss@ GOSUB 2@GG:REM Key scan 
60 WEND 


7@ END 


REM #*2* initialise *2#* 

MODE 1:DEG 

blue=@:cyan=2 

cx=32G:crv=2G0:ORIGIN cx,cy 
da=1G:ds=1G:REM anqle and mavement 


FOR i=1 To 3 

READ x€id,¥tid 
aCiexCidrbeid=yCid 

NEXT i 

DATA -10,-15,30,6,-14,15 
RETURN 


REM **** scan Key *#* 
IF INKEY(@)>=@ THEN GOSUB 4@@@:REM m 


ove forward 


2626 
OSUB 
2636 
OSUB 
26496 
2456 
3606 
3016 
pe 

3626 
3434 
36496 
3654 
3466 
3476 
pe 


IF INKEY(8)=6 THEN angqle=anqgletda:G 
300@:REM rotate 

IF INKEY¢1>=@ THEN angle=anqle-da:G 
364@0:REM rotate 

RETURN 

REM #2 ratate #x## 
colour=blue:GQSUB S3S@94@:REM draw sha 


ca=COSCangled:sa=SINC angle? 

FOR i=i TQ 3 

aCid=xCidFca-yC i dese 
bCid=xCir*esatytid*eca 

NEXT i 

colour=cran:GQOSUB S@@@:REM draw sha 
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3684 RETURN 
3696 : 

46@6 REM **** move forward **#* 

4616 colour=blue:GOSUB 5@6@:REM draw sha 
pe 

9@2@ cx=cxt+tds*COS( angle) 

9630 cy=cytds*SINCangle) 

4964@ ORIGIN cx,cy:REM new origin 

4656 colour=cyan:GOSUB 5@60:REM draw sha 
pe 

4966 RETURN 

4676 : 

SG@@G REM **#*#* draw shape ##*# 

5616 FOR i=1 TO 3 

5626 DRAW aci>d,bCi2,colour 

5436 NEXT i 

3446 DRAW 6,6 

5456 RETURN 


Mixing text and graphics 


The Amstrad CPC range has, as we have seen, two ways 0: 
displaying data on the screen; either by high-resolutior 
plotting and drawing, or by printing characters. Most graphic: 
applications will actually require a mixture of these twc 
methods to produce a composite display. Adding text to ¢ 
high-resolution display is fairly straightforward. Normally 
characters are located on the screen in a grid of character cells 
However, we.can free characters from this rigid positioning 
system by using the TAG command. TAG allows all subse. 
quent characters to be printed at the graphics cursor rathe: 
than at the text cursor, allowing accurate positioning of label: 
on bar and pie charts. However, TAG can also be used to move 
characters around a pixel at a time. This simple program show 
how TAG can be used to move the Q character smoothly acros: 
the screen: 


10 REM xx** TAG DEMO #1 xxxx 
2@ MODE 1 

30 TAG 

40 FOR X=O0 TO 600 STEP 2 

50 MOVE X,200 
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60 PRINT "Q"; 
70 NEXT X 
80 TAGOFF 


If you run this program you will see the Q move across the 
screen, but you will also see one of the problems associated 
with single-pixel movement of characters. The Q leaves a 
stream of colour in its wake. As the Q is printed 1 pixel to the 
right of its previous position most of the old Q is erased by the 
new; all that is except the most left-hand column of pixels in 
the old Q. The stream of colour left behind the Q as it moves 
across the screen is in fact a number of these left-over columns 
that never get overprinted. One solution would be to print a 
blank in place of the old Q before moving and printing a new 
Q. Alternatively, we can erase the offending column by 
drawing over it in the background colour. This short program 
demonstrates both methods. 


16 REM **** pixel move of chars ##x*¥ 

26 MODE 1 

3@ WHILE ans#<>"h" AND ans$<>"b" 

4@ INPUT"high res or blank ¢h/b)"sans% 
~3@ WEND 

66 TAG 

76 FOR x=1 TO 6@@ STEP 2 

8@ IF ans#="h" THEN GOSUB 106@ ELSE GOSU 
B 2666 

?@ NEXT x 

166 TAGOFF 

116 END 

126 : 

1666 REM *#** move by high res rubout ** 


1616 MOVE x-2,2@@:DRAWR @,-16,6 
1626 PLOT x,200,1 

1@36@ PRINT "Q"; 

164@ RETURN 

1656 : 

Z266@ REM **#** move by char blank ##* 
2616 MOVE x-16,164 

2626 PRINT" "; 

2636 MOVE x,14@ 

2446 FRINT"Q"; 

28656 RETURN 
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When designing custom-made characters for single-pixel 
movement, leaving a 1-pixel border around the shape elimin- 
ates this problem. Several other points are worthy of note 
when using TAG. Firstly, the character is positioned so that 
the graphics cursor is in the top-left corner of the character cell; 
secondly, a semicolon (;) is required after a tagged PRINT 
statement to suppress the carriage return and line feed control 
characters (try leaving off the semicolon in either of the two 
examples above to see these!) and, thirdly, the character or text 
string will be printed in the current high-resolution colour, not 
the current text colour. 


Frame synchronisation 


If you run the above example program you will see that the Q 
character does not move smoothly across the screen. Using the 
high-resolution erase method, the left-hand side of the figure 
appears to flicker and tear and the second method, using a 
space character to erase the old Q before printing the new, is 
jerky. Both of these problems are due to the fact that the 
picture we see on the monitor is not continuous, as it appears, 
but is a sequence of ‘frames’, built up by a rapidly scanning 
electron beam. If the alterations and movements on the screen 
are not synchronised to these video frames then we get the 
flicker effects witnessed above. 

Fortunately, there is a way around this problem. By making 
a call to the part of the operating system that controls the video 
display we can make our program synchronise its drawing 
actions to frames produced by the video display. Inserting this 
line into the program above, makes this call: 


65 CALL &BD19 


On the Amstrad CPC 664 this operating system call has been 
incorporated into the BASIC in the form of the FRAME 
command. On the Amstrad CPC 664 the equivalent is 
therefore: 


65 FRAME 


Both these commands, when inserted into the main anima- 
tion loop, cause the program to wait until the current video 
frame has been constructed (a very quick process) before 
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allowing the program to continue and update the information 
on the screen. 


Converting between graphics and character coordinates 


Even though we can use TAG to combine small amounts of text 
with high-resolution pictures there will still be a time when it 
becomes useful to relate graphics coordinates to character 
coordinates. Indeed, if you write a program involving ani- 
mated character coordinate graphics the only way to test for 
collisions with other objects is to convert the character 
coordinates into high-resolution graphics coordinates and use 
the TEST or TESTR commands to test the colour of a point in 
the character square ahead. The relationship between charac- 
ter coordinates and graphics coordinates depends on the 
screen display mode being used. Taking these modes one at a 
time, and starting with mode 2, the highest resolution mode, 
we have this situation: 


charx 80 chars 


400 graphics 
units 


25 chars} | = = 





Graphics and Characters 
Coordinates in Mode 2 


640 graphics units 


Figure 4.7 


Looking at the horizontal coordinates first it is easy to see 
that each character cell must be 8 graphics units wide. As each 
cell is itself made up of an 8 x 8 grid of pixels, there is a simple 
relationship in the horizontal direction: 
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1 pixel = 1 graphics unit 


Thus to find the horizontal graphics coordinate of the 
left-hand end of a character cell: 


graph x = 8x«(charx-1) 


In the vertical direction things aren’t quite so straightfor- 
ward. From the diagram we can see that each character cell is 
16 graphics units high. In other words, in the y direction: 


1 pixel = 2 graphics units 


To make life more complex still the two systems work in 
opposite directions. Whilst chary starts at 1, at the top of the 
screen and increases downwards to 25, graphy starts at 0 
and the bottom of the screen and increases upwards to 399 at 
the top. To find the graphics coordinate of the bottom of a 
character cell: 


graphy = 399-16xchary 


In mode 1 and mode 0 the vertical relationships remain the 
same but the horizontal resolution is halved for mode 1 and 
halved again for mode 0. In mode 1, therefore, each character 
cell is 16 graphics units wide. This means that 


1 pixel = 2 graphics units 


and 
graphx = 16*(charx-1) 
In mode 0: 
1 pixel = 4 graphics units 
and 


graphx = 32x(charx-1) 


In general, we can say that to find the graphics coordinates 
(graphx,graphy) of the bottom-left corner of a character 
cell (charx,chary) in mode ‘m’: 


graphy = 399-16xchary 
and 


graphx = 64/ (27 (m+1))*(charx-1) 
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The problem of relating graphics coordinates to actual pixels 
on the screen can be demonstrated by thinking of the pixel 
turned on by the command PLOT @,@ in any mode. 


graphy 


- YO WO fo OD 


t) 123 465 6 graphx 
PLOT @,0 in Mode 2 


graphy graphy 


= now F OM Oo 
= NYO WO FN OD 


®@ 12 3 4 5 6 graphx ® 12 3 4 5 6 — graphx 
PLOT 9,0 in Mode 1 PLOT 9,0 in Mode @ 
Figure 4.8 


The size of the pixel plotted depends on the mode used, but 
the graphics coordinates system stays the same in all three 
modes. This means that some plotting instructions can become 
redundant. For example, in mode 1, PLOT 1,1, PLOT 0,1 
and PLOT 1,0 will all light the same pixel as PLOT @,@, and 
in mode 0, seven other plotted coordinates would light the 
same pixel as PLOT @,@. When using high-resolution 
graphics or printing with TAG it is well worth being aware of 
this fact, as programs can be speeded up substantially by 
removing redundant PLOT instructions. This can be illus- 
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trated by a simple program to draw a horizontal line across the 
screen by plotting a number of individual points in a row. 
Using mode 0, the program draws the line by plotting points at 
every possible x coordinate between 0 and 639. The process is 
then repeated but this time points are plotted at every fourth x 
coordinate. The result is not, as you might expect a dotted line. 
All we have done is to remove the redundant PLOT com- 
mands, but are still lighting every pixel that makes up the line. 
In mode 1 we would need to plot points at every second 
coordinate to get a continuous line. To draw a corresponding 
vertical line in the most efficient way we should plot points at 
every second y coordinate irrespective of the mode used. 


16 REM ###* redundant plat dema *#x* 
26 MODE @ 

3@ starti=TIME 

46 s=1:y=2060:GOSUB 180@:REM plot line 
36 intervali=TIME-starti 

60 start2=TIME 

76 s=4:y=166:GOSUB 16@0:REM plot line 
8@ interval 2=TIME-start2 

96 factor=RQUND( intervalli/interval2,2) 
14@ PRINT"second method is";factor;"time 
s faster" 

11@ END 

{26 : 

166@ REM *##* plot line **#* 

101@ FOR x=8 TO 639 STEP s 

1626 PLOT x,y 

163@ NEXT x 

1964G RETURN 


By irradicating redundancies like this from programs we can 
get them to run roughly twice or even four times as fast, 
depending on the mode used. 

High-resolution graphics can be a lot of fun to play with as 
well as allowing us to write good-looking programs. The 
Amstrad CPC range have excellent ranges of commands to 
make the task of programming high-resolution displays as 
easy as possible. 
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664 graphics enhancements 


The version of Locomotive BASIC provided with the Amstrad 
CPC 664, BASIC 1.1, has several extra graphics commands to 
complement the excellent range of commands available on the 
Amstrad CPC 464. We have already met the FRAME command, 
used for frame flyback synchronisation, earlier in this chapter 
and its equivalent operating system call on the Amstrad CPC 
464. Now let us look at the Amstrad CPC 664’s commands that 
allow us to fill areas of the screen with colour and draw dotted 
or dashed lines. 


The FILL command 


This new command can prove extremely useful for colouring 
areas of the screen simply and quickly. The command is 
straightforward; we simply issue the FILL command 
together with a logical mode colour number to specify the 
colour we wish to use. The area of the screen filled depends on 
two things: where the graphics cursor was when you issued 
the F ILL command and the other information present on the 
screen. The fill area is bounded by lines drawn in the current 
LMCN or the LMCN used by the F ILL command. This short 
program demonstrates how the command can be used: 


10 REM xxxx FILL DEMO xxxx 

20 MODE @:DEG:red=3:pink=11 

30 side=25@:height=sidexSIN(60) 

40 MOVE 200,150 

50 GOSUB 1000:REM DRAW TRIANGLE 

60 MOVERO,2xheight/ 
3:height=—height 

70 GOSUB 1000:REMSECOND TRIANGLE 

80 REM xxxx NOW FILL OUTSIDE «xxx 

90 Savx=XPOS:savy=YPOS:REM SAVE 
CURRENT CURSOR POS 

100 MOVE@,0:FILLpink 

110 WHILE INKEYS=""":WEND:REMWAITFOR 
KEYPRESS 

120 REM*xxxx NOW FILLINSIDE SECTIONS 
KKK 


98 Game & Graphics Programming 


130 MOVE savx,savy 

140 FORarea=1T07 

15@ REMxx POSITION CURSOR READY FOR 
FILL xx 

160 READx,y:MOVERx,y 

17@ Fillarea 

18@ NEXTarea 

190 END 

1000 REM xx** DRAW TRIANGLE S/R xxxx 

1010 DRAWR side,@,red 

1020 DRAWR-side/2,height 

1030 DRAWR —-side/2,-height 

1040 RETURN 

2000 REM xxxx CURSOR POS DATA xxxx 

2010 DATA 40,-30,0,-80,90,-80 

2020 DATA 80,80,0,80,-90,80,0,-100 


This demonstration draws a six-pointed star and then uses 
the FILL command to fill the outside in pink and then the 
seven sections that go to make up the star in various colours. 
The loop that accomplishes this second part firstly reads from 
the DATA statements in lines 2000-2020 in order to 
position the cursor within the area to be filled. When the fill is 
done, the area coloured is limited by the red lines that define 
the star. The current graphics colour in the program is red, 
selected at line 1010 as part of a DRAWR instruction and, as 
no other instruction in the program changes the current 
graphics colour, then the FILL operation ‘recognises’ the red 
lines as boundary markers. It is worth noting that crazy things 
can happen with the FILL command if you inadvertently 
change the current foreground colour between drawing a 
shape and filling it. Re-run the demonstration program but 
insert this line which changes the current graphics colour to 
green: 


135 PLOT savx,savy,13 


Subsequent filling will no longer recognise the red lines used 
to draw the star as boundaries and will simply fill over them. 
Try changing the colour used to draw the star to pink on line 
101@. Can you explain the effect this time? 
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Dotted lines 


The addition of the MASK command to the Amstrad CPC 664’s 
BASIC makes broken lines easy to draw. The MASK command 
is used to define which, out of any group of eight, pixels you 
wish to show in the foreground colour and which in the 
background colour by using a number in the range 0-255. If 
you imagine the number to be in binary then the bits set to 1 
represent pixels in the foreground colour and those set to 0 
represent pixels in the background colour. Thus MASK 15 
followed by a DRAW command would produce a half-broken 
line, as 15 is 00001111 in binary. Normally, the foreground 
colour is the current foreground colour and the background 
colour that of the screen, but these can be changed using 
GRAPHICS PEN and GRAPHICS PAPER. The first of these 
commands is an alternative way of changing the current 
graphics foreground colour and can be used instead of adding 
a colour parameter to a graphics command as described earlier. 
The second sets the background graphics colour in the same 
way that PAPER sets the background text colour. Thus, if 
GRAPHICS PAPER 2 is selected in mode 1, the zeros in the 
mask will appear as cyan dashes in the broken line. 


‘Stranded’ — ladders and pillars 


In the last two chapters we have built up the part of the screen 
display that consists of low-resolution character graphics, 
windows, and introduced the joystick and cursor key control 
routines. In this chapter we add some of the high-resolution 
graphics detail to the screen display. This section is mainly 
concerned with drawing ladders between the various cliff- 
walk levels and drawing the pillars that rise out of the sea on 
which the stranded figures stand. The following figure shows 
these two features added to the screen display. In addition a 
jetty has been added by introducing a third window and 
setting its background colour to mauve. In the final version of 
the game the player will negotiate the cliff-walk to reach the 
jetty from where he will board the boat to rescue the stranded 
figures. 
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Figure 4.9 
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Drawing the ladders 


As the game uses character-cell animation techniques (that is, 
the moving figure moves one character cell at a time using 
LOCATE) we must relate the high-resolution graphics to the 
low-resolution character-cell coordinate system. In this chapter 
we have developed simple relationships that allow us to 
convert character-cell coordinates to high-resolution coordin- 
ates. The ladders positions can therefore be defined using 
character coordinates, and a short conversion routine intro- 
duced to generate the equivalent high-resolution coordinates 
needed to draw the ladders. In order to draw the ladders we 
need three pieces of information (assuming they are all to be 
the same width!) — its x and y coordinates and its height. As 
we have three ladders to draw we can use a series of arrays to 
hold the information for each ladder. We should define these 
arrays at the beginning of the program: 


116G REM SX XXKERKEFRRESKREKERESE 

1116 REM * dimension arrays * 

112G REM SX SKK HKHSEKRREERKERSE 

1138 : 

119@ REM ** dimension ladder arrays ** 
1266 DIM 1x¢€3),1¥€32,1163) ,Qlx€3) ,qly¢3) 
6Q11¢3) ,deck¢3) 


We can define the position and length of each ladder by 
READing DATA into these arrays. The arrays |x(), ly () 
and Ll) hold the data in character-cell coordinate form; 
glx), gly@) and gl l() hold the corresponding high- 
resolution graphics conversions. We can set the values in these 
arrays as part of our initialisation subroutine. 


2246 REM ** ladder data ** 

2256 FOR i=1 TO 3 

2260 READ Ix¢id,ivtid.,)1¢id 

2278 gixCiM=S2ZKCTxCi-1L sqly Ci W=3BPP-1Lé6#¢ 
lyCid-19-8 

2286 glICid=C11C id +19#16 

2298 NEXT i 

230@ : 

Z231@ REM ** ladder data ¥# 

2324 DATA 18,9,5,2,15,6,17,18,3 
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This data can then be used to draw the ladders. The starting 
point as defined by glx () and gl y() is the bottom of the 
left upright. The drawing routine uses a MOVE command to 
move to this start point but the rest of the ladder is drawn 
using the relative commands MOVER and DRAWR. The 
following diagram shows how the ladder can be constructed 
from the array data. 


24 
<> 


gU() 


91x(),gly() 
Figure 4.10 


This pair of subroutines actually draw the three ladders: 


6466 REM **** draw ladders x*#% 

$6416 FOR lad=1 TO 3:GOSUB 65@@:NEXT lad 
64206 RETURN 

6436 : 

6566 REM **** draw a ladder *#** 

6505 PEN deck¢lad?>?:LOCATE Ix(lad),ly¢lad 
d-11¢1lad>):PRINT LEFT#(deck#,1> 

6367 PEN mancol 

6514 MOVE qlx¢lad),qlytlad) 

6526 DRAWR @,ql1l¢lad),black 

6536 MOVER 28,6 

65486 DRAWR @,-gl1¢ lad) 

6556 FOR ly=8 TO glitlad>)-8 STEP & 

6566 MOVER -28,8 

6576 DRAWR 26,6 

6586 NEXT ly 

6574 RETURN 

6666 : 
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Lines 6520-6540 draw the two ladder uprights and the 
FOR...NEXT loop in lines 6550-6580 puts in the 
appropriate number of rungs. Notice that a separate sub- 
routine draws a ladder, as defined by the number in the 
variable Lad whilst a second subroutine is used to call the 
drawing routine three times using lad values of 1, 2 and 3 to 
draw the three ladders. An alternative method would have 
been to just enclose the drawing routine inside a FOR- 
. .»=NEXT loop, within a single subroutine. The reason for 
not doing this is that later in the game we shall need to be able 
to redraw any ladder independently of the other two. To do 
this we need only to set Lad equal to 1, 2 or 3 depending on 
the ladder we wished to draw and call the drawing subroutine 
at line 6500. Initially, however, we want to draw all three 
ladders, so we call the subroutine starting at line 6400. 

One advantage of setting up routines that allow us to enter 
the defining data for each ladder in the character-cell coordin- 
ates is that we can play around with our screen display very 
easily during the design stage of the program. Adding a fourth 
ladder would not be difficult, neither would shifting the 
position of the existing three ladders. The system is flexible 
enough to allow us to experiment with the arrangement of 
ladders in the game. Indeed, you might like to try ex- 
perimenting with the data values given in line 2320 to 
change the existing arrangement of ladders. 


Drawing pillars 


The same techniques can be applied to drawing the seven 
pillars that rise out of the sea. Arrays to hold the x coordinate 
and height of each pillar in both character cell and graphics 
coordinates are used. As the y coordinate of each pillar is the 
same, we do not need to hold its value for each pillar. We must 
therefore also DI Mension these arrays at the beginning of the 
program. 


{216 REM ** dimension pillar arrays *# 
1220 DIM pillcx¢?7),pillch¢7),pillarx¢7), 
pilarh¢?7)> 


The values that define the arrays are not set by a series of 
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data values. The x coordinate is defined to be 1, 3, 5, etc., for 
each successive pillar and the height of the pillar is defined 
randomly between 1 and 4 character-cell units. The routine to 
set up these values is not included in the initialisation routine 
as there will be stages during the game when we shall want to 
redefine and redraw the pillars, for example, when all seven 
stranded men have been rescued. This routine therefore forms 
its own individual module. Whenever we wish to redraw the 
pillar data we will also wish to redraw the jetty. The commands 
to do this can therefore be included in this routine. 


2466 REM ##2#* set up pillars 3##% 

241@ RANDOMIZE TIME 

24926 cc=i:pillcrv=Z2S:pillary=465-1ée*pillic 
x 

2936 FOR n=1 TQ 7 

24948 pillextnd=ccrspillch¢nd=INTCRND( 1) ¥4 
+1 

24956 pillarx(nd=Sexpillcx(nd-16 

2460 pillarhtnd=1é6epillch(n)-3 

2976 maxlev(no=pillarytpillarh¢nd +16 
2486 cc=cct2 

2496 NEXT n 

2566 level=pillary 

2516 GOSUB 7S6@:REM draw walkway 

2526 PAPER #3,mauve:CLS #3:PEN #3,whi te 


2536 GOSUB 766@:REM draw pillars 

254@ LOCATE #2,18,7:PEN #2,green:PRINT#2 
,boats 

255@ RETURN 


The actual drawing routine to create the pillars is located at 


line 7000: 


766@ REM *##* draw pillars *¥#¥% 
701@ PEN #2,white 

762@ FOR n=1 TO 7 

7638 pillcol=red 

7@46 FOR i=@ TO pillarhtnd/2 
7656 MOVE pillarx(n) pillaryt+2#i 
766@ DRAWR 46,4@,pi11cal 
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7@7@ IF pillcol=red THEN pillcol=white E 
LSE pillcol=red 

798@ SOUND 4,16#1,2,5 

7@?Q NEXT i 

7ia@@ FOR j=1 TO 5 

7Fii@® MOVE pillarxtn3+48+2") .pillaryt 


7126 DRAWR O@,pillarhind pink: 

7i36 DRAWR -45,G,pastoqreen 

7146 NEXT J 

7iS@ PRINT#HZ, transont 

7166 LOCATE #2,pillcxtnd+1l,pillcr-pillch 
Cnd-17 

7176 PRINT#2,standmant 

7iIS6 PRINT#H2, transafft 

7i97e@ NEXT ni 

7268 RETURN 


Each pillar is drawn so that a three-dimensional effect is 
achieved. The front face is drawn as a series of red and white 
horizontal bars. Lines 7030—7090 do this. The side and top 
of the pillar are then drawn in pink and pastel green, 
respectively, in lines 7100-7140. The final task is to place 
the stranded man figure on the top of the pillar. This could be 
done using TAG, but in keeping with the philosophy adopted 
by the rest of the program to date, namely to relate all graphics 
to the character-cell coordinate system, the positioning of the 
man is done using character-cell coordinates. The y coordinate 
of the man on top of the pillar demonstrates one difficulty in 
using windows. pillcy and pillch() are both 
character-cell coordinates based on the assumption that the 
cell (1,1) is in the top-left corner of the screen, but, as we are 
now printing in window 2, this is no longer the case. In this 
window, the cell (1,1) is in the top-left corner of the window, 
not the entire screen. In calculating the y coordinate of the man 
we wish to print in window 2, we must take account of this by 
subtracting 17 from the value arrived at from subtracting 
pillch() from pillcy. The use of transon$ and 
transoff$ switches on and off the transparent printing 
option that is described in detail in Chapter 7. Its use in this 
case is to stop the top of the pillar being obliterated when the 
man character is printed over it. 
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The horizontal detail of the jetty is filled in by this short 
routine: 


7566 REM draw walkway #*#% 
751@ FOR y= 118 TO 126 STEP 2 
7326 MQVE @,y:DRAW 639,y¥,black 
73536 NEXT y 

754@ FOR y=31 TO 27 STEP -2 
7308 MOVE 576,y¥:DRAW 608,y,black 
7566 NEXT y 

7376 DRAW 668,118 

7386 FOR y=122 TO 126 STEP 2 
7596 MOVE @,y:DRAW 639,y¥,mauve 
7666 NEXT » 

7616 RETURN 


All that remains is to insert calling commands into the 
relevant parts of the program. The subroutine to draw the 
foreground scene is as follows: 


2866 REM *#*** draw foreground etc *##** 
2826 GOSUB 2460:REM draw sea scene 
2836 GOSUB 6460:REM draw ladders 

28466 RETURN 


This routine must, in turn, be called from the main program: 


1336 GOSUB 28@@:REM foreground etc 


Program structure 


We can see how these additional program sections fit into the 
program, as so far devised, from the additions made to the 
program structure diagram. The program is now at the stage 
where most of the preparatory routines have been completed. 
In the next chapter we shall insert the routines to create 
moving panels between the cliff-walk sections and control 
routines that allow the player to ascend or descend the ladders. 
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Chapter Five 


Interrupts 


In this chapter: 
What is an interrupt? 
The EVERY, AFTER and REMAIN commands 
Interrupt priorities 
Programming pitfalls 
Stopping interrupts 
DI and El 
Stranded 


Moving panels on the walkway 
Raising the water level 


On many computers the use of interrupts as a way of 
controlling events within a program has been solely the 
domain of the machine-code programmer. The Amstrad CPC 
range, however, allows BASIC programmers to use interrupts. 
Even if you are an experienced BASIC programmer you may 
not be familiar with the concept of interrupts. This chapter 
introduces programming with interrupts and deals with some 
of the common pitfalls to be wary of when using them within 
your own programs. 


What is an interrupt? 


Normally, when the processor runs a BASIC program it follows 
the program, line by line, converting the line into machine 
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code and then executing it; a process known as ‘interpreting’ 
the BASIC program. The lines are interpreted in the order 
determined by the program, the processor following the loops 
and branches that make up the program’s structure. This 
process continues until the end of the program is reached or 
there is an error in the program. An interrupt can best be 
described by a simple analogy. If we think of the processor 
running the BASIC program as a person reading a book, then 
an interrupt can be thought of as a telephone call. Under 
normal circumstances the person will break off from reading 
the book to answer the telephone. When the telephone 
conversation is finished the person will return to carry on 
reading the book from the point that was reached before the 
interruption caused by the telephone call. 

An interrupt causes the processor to break off from its main 
task of interpreting the main BASIC program to do another 
short job before carrying on with the main program from the 
point it was at before the interrupt occurred. Interrupts were 
first developed so that pieces of hardware, such as printers and 
disk units, could interrupt the processor when they wanted to 
make a data transfer, or so that the operating system could 
perform some immediately necessary task. However, BASIC 
interrupts on the Amstrad CPC range allow us to do short jobs 
within a program either at regular intervals or after a certain 
amount of time has elapsed. Because of the sequential (one line 
after another) way in which BASIC programs are normally 
interpreted it is difficult to predict exactly when any one 
section of program will be completed. Interrupts allow us to do 
certain jobs at precise times because they interrupt the normal 
program flow in order to break off and do the job we require. 


EVERY and AFTER 


There are two commands that will generate interrupts in 
BASIC, EVERY and AFTER. The first allows us to do a short 
task repeatedly at regular intervals; the second allows us to do 
a certain job after a certain amount of time has elapsed. The 
task we want to see done when an interrupt occurs must be 
held in a subroutine. The syntax of these two commands is 
very simple: 
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EVERY <time interval>,<timer> GOSUB <Line 
number> 
AFTER <time interval>,<timer> GOSUB<Line 
number> 
This short demonstration shows how each type of interrupt 
can be used. The main program being executed is the 
WHILE...WEND loop in lines 50-80. This loop prints a 
counter value to the screen. The first subroutine at line 1000 
randomly reselects the PEN colour and the command at line 
3@ makes this event occur every 100 time units (each time unit 
is equal to 1/50th of a second). The second subroutine simply 
sets a flag, endflag, that will terminate the 
WHILE.~..WEND loop. The AFTER command in line 40 
sets this to occur 1000 time units after the AFTER command 
was issued. 


16 REM **** interrupts ¥*** 

26 MODE @ 

36 EVERY 166,6 GOSUB 1064 

4@ AFTER 1666,1 GOSUB 2006 

36 WHILE endflaq=6 

6@ cc=cctl 

76 LOCATE 16,12:PRINT cc 

36 WEND 

76 END 

166 : 

1666 REM #*#** interrupt #1 x#*% 
1616 RANDOMIZE -TIME 

1626 pencol=INTCRND(1)#13) 

1936 PEN pencoal 

1646 RETURN 

1656 : 

2466 REM *#** interrupt #2 *#*# 
2616 endflag=1 

2626 RETURN 


Notice that the EVERY command and AFTER command in 
this program use different timers. The EVERY command uses 
timer 0, whereas the AFTER command uses timer 1. Each 
interrupt we wish to operate within a program must have its 
own timer. There are in fact four timers, numbered 0-3, for this 
purpose. If we alter the timer value in line 40 by entering this 
line: 
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40 AFTER 1000,0 GOSUB 2000 


and run the program we can see why we require different 
timers. You will notice that the PEN colour is never reset 
during the program run. This is because the AF TER command 
has grabbed timer 0 to time its own interrupt, effectively 
stopping the EVERY command that generates the PEN colour 
changes from having a timer. We can therefore only ever have 
four interrupt routines current at any one time during a 
program using the timers 0, 1, 2 and 3. 

We have now seen how to turn an interrupt on, but how can 
we turn it off again? There are two ways of doing this. One, as 
we have just seen, is to pinch the timer for use by another 
interrupt we want to bring into effect. In other words for each 
timer a new AFTER or EVERY command overrides any 
previous EVERY or AFTER that was using that timer. The 
second method is to use the REMAIN command. This 
command actually has two functions. Firstly, it returns the 
number of time units left until the next interrupt is due to be 
generated, and, secondly, it disables the timer in question, 
stopping any further interrupts from occurring. We can see 
how REMAIN can be used to disable a timer by adding a line 
to the last demonstration program: 


75 IF cc>200 THEN dummy=REMAIN(@) 


If the program is run with this line inserted then the interrupt 
timed by timer 0, the PEN changing subroutine, will be 
disabled when cc exceeds 200; the PEN colour current at 
this time remaining in force until the end of the program. 
Notice that to use REMAIN in this way we need to set it equal 
to a variable. In this application we are not interested in the 
number of time units that remain before timer 0 generates 
another interrupt, so the variable we use is simply a dummy 
variable to achieve the correct syntax. 


Interrupt priorities 


Just as an interrupt can cause the processor to break off from 
processing the main program to do another task, so an 
interrupt can itself be interrupted by another interrupt. If we 
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go back to our book and telephone call analogy, we can think 
of the four interrupt timers as being four telephones on a desk. 
The telephones are such that a person sitting at the desk knows 
that calls on one telephone are more important than calls on 
another telephone; indeed, that there is a set order of priorities 
between the four telephones. The person (the processor) is 
reading the book (interpreting the main program) when one of 
the telephones rings (an interrupt occurs). He puts the book 
down and answers the telephone. While he is still on the 
telephone another, more important, telephone rings (a second 
interrupt occurs). The person asks the caller on the first 
telephone to hold on while he answers the second telephone. 
Eventually the call on the second telephone will end (second 
interrupt task completed), the person will then go back to his 
previous telephone conversation and finish that (return to first 
interrupt task and finish that), finally returning to the book he 
was reading before the telephones started ringing (back to 
processing the main program). 

It is important to realise that if the second telephone had 
been less important than the first then the person would not 
have broken off his first conversation to answer it. In the 
Amstrad CPC range’s BASIC interrupt system the four tele- 
phones are the four interrupt timers. Timer 3 has the highest 
priority and timer 0 has the lowest priority, although all these 
timers have priority over the normal BASIC program being 
run. We can see the effect of priorities using a simple program 
to generate several interrupts to occur simultaneously. Notice 
that in this example there is no real activity in the main 
program. The main program consists of an empty loop cycling 
around at line 6@. In this case we have a completely 
interrupt-driven program. The interrupt timings are set to 
generate interrupts at intervals of 50, 100 and 200 time units. 
After 200 time units have elapsed, all three interrupts will be 
generated simultaneously. In this case the priority is made 
clear. The interrupt on timer 2 is handled first, then the 
interrupt on timer 1 and, finally, the interrupt on timer 0. 


16 REM ***# interrupt pricarities *#** 
26 MODE 1 

36 EVERY 56,4 GOSUB 1466 

46 EVERY 160,1 GOSUB 2008 
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SG@ EVERY 266,2 GOSUE 3aG6 

64 GOTO 66 

“Osos 

16@G REM **#8* interrupt #& #2#2 
1916 PEN 1:PRINT TABC1G> "timer 6" 
1626 PRINT 

1636 RETURN 

1644 : 

2OGG REM =*82*2 interrupt #1 ses 
2416 PEN 2:PRINT TABCS) "timer 1" 
2426 RETURN 

2436 : 

3666 REM *#**e interrupt #2 xe 
3@1@ PEN 3:PRINT"timer 2" 

2426 RETURN 


Programming pitfalls 


Although having BASIC interrupts can be of great use to the 
programmer, they can also cause a lot of headaches when 
things do not quite go according to plan. It is sometimes 
difficult to be sure whether the fault is in the main program or 
in a subroutine that is interrupting the main program, or in the 
interaction of the main program and the interrupt. There are, 
however, a number of tips that you can follow to avoid some 
common errors. 

The main source of errors to the unexperienced interrupt 
programmer is when the interrupt alters variable values or 
moves the text or graphics cursors that are used by the main 
program. The first of these problems is easily avoided (once 
you are aware that the problem exists) by ensuring that you 
use variable names in your interrupts that are not used in any 
other place in the program. As Locomotive BASIC allows you 
to have extended variable names this should be easy! Keeping 
track of the graphic and text cursors in a program that uses 
interrupts can be a little more difficult. Here is an example of 
the sort of (apparently) crazy things that can happen: 


1G REM ***# interrupt probiems ¥**#% 
26 GOSUB S@G:REM initialise 
36 REM ##*2 plot lines *##% 
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460 FOR y=199 TO 399 STEP 16 
=3@ MOVE @,y 

66 FOR x=@ TO 639 STEP 16 
7@ DRAW x,y 

89 NEXT x,y 


7@ END 

100 : 

346 REM **** initialise x*** 
316 MODE @ 


S2@ cx=3@:cy=5G:r=26 
5330 EVERY 85,6 GOSUB 160@:REM draw a cir 


546 RETURN 

SoG 3 

146G REM ###* circle interrupt *#*** 
1616 RANDOMIZE -TIME 

1626 colour=INTCRND(1)>#14+1) 

1636 MOVE cxtr,cy 

1496 FOR angle=@ TQ 2*PI STEP 6.2 
1656 a=cx+r*COS(angle) 

14@6@ b=cy+trx#SINCangle) 

1676 DRAW a,b,colour 

1686 NEXT angle 

1696 DRAW cxt+r,cy 

1166 cx=cx+5@ 

1116 RETURN 


If we surpress the interrupt by inserting a REM at the 
beginning of line 53@ we can see the main action of the 
program, to draw a series of parallel lines in the top half of the 
screen. The interrupt subroutine draws a circle in the bottom 
half of the screen in a randomly selected colour. The idea is to 
draw a series of circles whilst drawing the parallel lines 
pattern. Remove the REM from line 53@ to enable the 
interrupt to occur and run the program to see what goes 
wrong. The first problem is that when the program returns 
from a circle-drawing interrupt the graphic cursor is not in the 
correct position to continue drawing the parallel lines and so 
spurious lines connecting the circle with the lines pattern are 
drawn. The second problem is that the circle-drawing inter- 
rupt subroutine alters the graphics colour each time it is called, 
this means that when the program returns to its line-pattern 
task it continues drawing in the wrong colour. What steps can 
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we take to eliminate these problems? The problem with the 
graphics cursor can be rectified by storing away its current 
position on entering the interrupt and restoring it on exit, 
using XPOS and YPOS (see Chapter 4). Insert these lines to do 
this: 


1005 savex=XPOS:savey=YPOS 
1105 MOVE savex,savey 


Text-cursor problems encountered when printing text in a 
program that uses interrupts can be overcome similarly, using 
POS and VPOS. These variables carry the current horizontal 
and vertical text-cursor coordinates. 

The colour problem can be overcome by adding a third 
parameter to the DRAW command used to create the parallel 
lines pattern, to specify the graphics colour to be used every 
time the DRAW command is executed. To draw the lines 
pattern in cyan, we need simply to change line 70: 


70 DRAW x,y,2 


One interesting effect that can be noticed from making this 
change is that a DRAW command with the third colour 
parameter added takes slightly longer to execute. This can be 
seen in the fact that the program has time to generate two extra 
circles when line 7@ is amended as above. However, we have 
achieved our aim, to draw a series of parallel lines in one 
colour and generate a number of multi-coloured circles on an 
interrupt basis. 


Interrupts and timing 


Another source of problems when dealing with interrupts is 
that of timing. It is difficult to predict how long a certain 
interrupt subroutine will take to execute. Often relative 
timings can only be worked out by trial and error, ex- 
perimenting with different interrupt intervals until the prog- 
ram ‘feels’ right. The golden rule with interrupts is to try and 
keep them short in comparison with the number of times they 
occur. If we shorten the interval between interrupts in the last 
example program to 50 time units, we see one consequence of 
long interrupts — the processor can never get back to deal with 
the main program. The time taken to draw a circle is relatively 
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long, and by the time the task is finished it is time for another 
interrupt to occur. The program keeps drawing circles, but 
never gets back to its main task of drawing the lines pattern. If 
an interrupt routine takes so long to execute that another 
interrupt occurs then one of two things will happen: if the new 
interrupt is of a higher priority then the processor will switch 
to the new interrupt routine; if the new interrupt has a lower 
priority then it will ‘stack up’ waiting for the higher priority 
interrupt routines to be completed. If several interrupts are 
running at the same time, then their relative timings can be 
difficult to work out. Again the rule is keep interrupts short! 


Stopping interrupts happening 


It can often be useful to suspend temporarily all interrupts 
whilst doing a particular section of program. This may be to 
avoid some of the problems discussed earlier, or because an 
interrupt is inappropriate at that time, but you do not wish to 
disable any interrupt permanently. To disable all interrupts 
temporarily we use the DI command. Interrupts are re- 
enabled by the EI command, the section of code we wish to be 
processed uninterrupted being sandwiched between DI and 
EI. These commands can also be used to stop a low-priority 
interrupt routine being interrupted by a_ higher-priority 
interrupt. In this case interrupts are automatically re-enabled, 
without the need for an EI, when the interrupt routine 
reaches the RETURN command. As far as possible, sections of 
program that are protected from interruption by DI should be 
short, as any interrupts that occur during the time when 
interrupts are disabled are not ignored but stack up awaiting 
service when the EI (or RETURN) command is reached. If the 
length of time when interrupts are disabled is too long then 
the program will have a queue of other interrupts to process 
when they are eventually re-enabled. 


Uses of BASIC interrupts 


Interrupts, provided they are used carefully, are of great use in 
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programming arcade games. Any process that requires regular 
attention, or that must occur after a certain amount of time, is a 
prime candidate for use as an interrupt. Scanning the joystick 
or keyboard could be done under interrupts as could the 
update of shape positions in a ‘shoot-em-up’ space-invaders 
type game. The AFTER command might be used as count- 
down timer to the end of the game, or for switching from one 
phase of the game to the next. With a little fine-tuning 
interrupts can make movement and control within games 
smoother and more effective. This chapter has attempted to 
cover some of the difficulties of real-time interrupt program- 
ming, but there is no universal panacea. The techniques 
required to get interrupt-driven programs debugged and 
running smoothly must be learned through experience. 


‘Stranded’ — moving panels and rising tides 


In Chapter 4 we added most of the foreground detail to 
‘Stranded’. However, one important feature was not included 
— the moving panels between each section of the cliff-walk. 
These form the major hazard to the player, as he must 
successfully jump on and off these panels in order to make his 
way down the cliff to the men stranded on pillars in the sea. 
Because these panels move back and forth across the gaps 
between cliff-walk sections it is an ideal application for the 
BASIC interrupt facilities offered by the Amstrad CPC range. 
The movement of each panel can be controlled by a regular 
interrupt using EVERY and one of the four interrupt timers. 
The program design means that the main program loop 
repeatedly scans the joystick or cursor keys and updates the 
player character’s position and is interrupted regularly to 
move the panels. The alternative to this structure is to place a 
panel-moving routine within the main program loop. One of 
the advantages of using an interrupt in this instance is that it 
makes the game more difficult to play. If the panels were 
moved regularly within the same loop as the player-movement 
routine then the two motions would be, to some extent, 
synchronised, allowing the player to hop on and off panels 
more easily. As the timing of an interrupt routine is indepen- 
dent of the current position within the loop, the two types of 
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motion are not synchronised, making the game less predict- 
able. 

The second feature of the game that is a good candidate for 
use as an interrupt is the routine that raises the sea level 
around the pillars as the tide comes in. In this section we look 
at both of these routines, see how they can be driven by 
interrupts, and how they fit into the game’s structure as so far 
developed. 


Drawing the panels 


The panels move in the gaps between the cliff-walk sections 
and will be drawn using high-resolution graphics. As with the 
other high-resolution routines detailed so far, the position and 
width of each panel and the gap between the cliff-walk 
sections will be defined in terms of character-cell coordinates 
and held in a series of DATA statements. Conversion routines 
will convert each panel parameter to its graphics coordinates 
equivalent. We therefore need to dimension a number of 
arrays to hold these parameters: 


114@ REM ** dimension panel arrays ** 
115@ np=6:REM set number of panels 
116@ DIM ecxtnpd),scyt(np),qcpinp) ,pclinpod 


1176 DIM pltnp>? ,qptnp),stxtnp?,sty (np) 
1186 DIM ex (np) ,dx(np?,c (np) smc tnp)d 


The four parameters that define each panel are read in by 
this part of the initialisation routine: 


2696 REM **® panel data ** 

216@ FOR n=1 TO 6 

Z11G@ READ pcl(n>,acp tn? ,scxtn),scytn) 
2126 pl(nd=S32epcl (nd :qpt(nd=32egGcptn)-1 
Z136 stx(nd=SB2eCSscx(nI—-loisty(ndI=BPP—-1 6¥ 
scy tn) 

214@ exCnod=stxtndt+aqpnin) 

2156 mctndI=qptnrd-pl tn?) 

Z16@ dx(nd=32 

2176 NEXT n 

2186 DATA 2,3,6,3,2,3,194,3 
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2196 DATA 1,2,5,8,2,3,13,8 
2266 DATA 2,3,.7.14,1,2,13,14 
2216 


The parameters are used to generate several other para- 
meters that will be of use in moving each panel. The first task 
is to convert the four data values read in for each panel into 
graphics coordinates. The following diagram shows what data 
the other arrays that are calculated from the four initial 
parameters hold: 


Cliff Walk 
Section 





(stx(),sty() ) (ex(),sty() ) 


panel 


Figure 5.1 


pl() holds the length of the panel and gp() the size of 
the gap between the cliff-walk sections. stx() and sty () 
hold the starting coordinate for the panel and ex () holds the 
x coordinate of the other side of the gap. The following 
subroutine will therefore move a panel, as designated by the 
value of the variable n. 


366G REM *#*** move panel m **** 

3616 DI 

3636 MOVE stx(n)d,stytn) 

3644 ctnd=c(nI+dxtn) 

36560 IF c(n)>=mc(n> THEN dx(nd=-dxtnodicé 
no=me cn) 

36606 IF c(nd<=6 THEN dx (nd=-dx(ndictnd=@ 
3678 DRAWR c(n),@,sky 

34686 DRAWR pltn),@,black 

3678 DRAW ext(n>,styt(n), sky 

3766 EI 

3716 RETURN 
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This routine uses a counter c() to keep track of the 
left-hand end of the panel. Essentially what this routine does is 
to draw a horizontal line across the gap. The two end sections 
of the line are the same colour as the sky-blue background but 
the middle section is black, denoting the panel. Each time the 
routine is called for panel n the counter is increased by the 
value of dx (n). The three sections of the line are drawn as 
follows, starting at the left-hand end of the gap: 


a) A sky-blue horizontal line is drawn from the start point 
coordinates, 'c(n)’ coordinates long. 

b) A horizontal black line is drawn from this point, 'pl(n)’ 
units long. 

c) A horizontal sky-blue line is then drawn from the end of 
the black line to the right-hand end of the gap, as held in 
ex(n). 


As the counter c (n) increases so the starting point of the 
black section of the line will move further and further to the 
right. To make the panel move back to the left we simply have 
to change dx (n) from a positive to a negative value, so that 
c(n) is decreased each time rather than increased. The 
checks for the right- and leftmost values of c (n) are made in 
lines 3650 and 3660 before the drawing of the three line 
sections takes place. As the whole of the gap is drawn in either 
sky-blue or black, old positions of the panel are automatically 
erased when the new position is drawn. 

This routine only works for panel n, we need to repeat the 
process for each of the six panels in the game, we therefore 
need a further routine to call this routine with n set to 1, 2, 3, 4, 
5 and 6: 


S566 REM *##* moving panels *### 

351@ REM ** disable and re-enable timers 
¥* 

3526 IF resetflag=l THEN GOSUB 7364:GQSU 

B 7466 

353@ nm=n+1i:IF n>é THEN n=1 

354@ GOSUB 3666 

3554 RETURN 

3566 : 


Notice that a FOR. ..NEXT loop is not used here. Instead 
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the routine cycles round from n=1 to n=6, before resetting to 
1. This routine is the actual routine that will be called by the 
interrupt timer. To move all six panels on a single interrupt 
would take too long, so, instead, this arrangement ensures that 
every time an interrupt is generated only one panel is moved, 
but that the moves are made in a sequence, from panel 1 to 
panel 6. 


Raising the water level 


Making the sea level appear to rise around the pillars is 
straightforward. This routine simply draws a blue line around 
the current base of each pillar, as defined by Level. 


f14@ REM *#** raise water level =x=# 
6114 DI 

6126 FOR pn= 1 TO ? 

6136 MOVE pillarxtpn),level 
é146@ DRAWR 48,4 water 

6156 FOR px=1 TO 5 

6166 PLOTR Z,1 

6178 NEXT px 

4190 NEXT pn 

6268 level=levelt+2 

6248 EI 

6258 RETURN 


Setting the interrupt timers 


We shall need two interrupt timers to control these two events. 
As the intervals between each successive event might be 
changed later in the program (for example, to make the panels 
move faster or make the tide come in quicker) the program 
uses two variables, moveint and riseint, to set these 
intervals. These variables are set at the beginning of the 
program, during the initialisation routine. 


i626 REM #* set interval timer values ## 
1836 moveint=l1L2:riseint=368 


The following routine can then be used to start the interrupt 
timers going: 
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74966 REM **#** enable timers *##* 

7416 EVERY moveint,@ GOSUB 3560:REM move 
panels 

7426 EVERY riseint,1 GOSUB 6106:REM rais 

e water level 

7436 RETURN 


As we may wish, at some stage, to switch these interrupts of 
(this can be useful if there is an unacceptably large number o 
interrupt routines queueing up — switching off and restartin; 
the interrupt timers makes the queue disappear) the followin; 
routine may prove useful, making use of REMAIN to per 
manently disable the two interrupt timers used: 


7366 REM **** disable timers **#* 
7316 resetflag=@ 

7326 FOR i=6@ TO 2:r=REMAINC i> :NEXT i 
7338 RETURN 


The final task to make both of these interrupt routines worl 
within the program as we now have it, is to call the ‘enable 
routine from the main program as follows: 


1446 GOSUB 7460:REM enable timers 


Program structure 


These two new interrupt routines work in conjunction witl 
the WHILE. ..WEND loop that scans the joystick or curso 
keys and updates the man character’s position. As described ir 
the first chapter, dotted lines are used within the structur 
diagram to show where one routine interrupts another. Thx 
structure diagram for the program so far, now looks like this: 
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Figure 5.2 


Chapter Six 


Sound and sound effects 


In this chapter: 
Sound parameters 

The SOUND command 
Shaping sounds 


Attack, decay, sustain and release 
The ENV and ENT commands 
The envelope generator program 


More about channel status 
The $Q command 
The SQ and ON SQ. ..GOSUB commands 


‘Stranded’ 
Adding sound effects 
Moving onto panels and falling off them 


The addition of sound to a game adds excitement and makes 
the game more absorbing and appealing to the player. The 
Amstrad CPC range has excellent sound facilities that can be 
used from BASIC. The range of sound commands in Locomo- 
tive BASIC are extensive, allowing programs to play three 
simultaneous parts of a tune. Because of the power and range 
of the sound commands, much of their use falls outside the 
scope of this book. In this chapter we shall look at how basic 
sounds are generated and how more sophisticated sounds can 
be generated by modifying the sound by defining its ‘shape’. 
Other features of sound, such as coordinating the three sound 
channels and generating sound interrupts will also be discus- 
sed briefly. 
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Sound parameters 


When we hear a note, for example from a key struck on a 
piano, there are many things that go to define the sound. The 
most simple of these are the pitch of the note (how high or low 
the note is), duration (how long the note is) and volume (how 
loud the note is). Other, more complex, parts of the sound alter 
the quality of the sound we hear, but the three basic 
parameters alone can be used to produce sound on the 
Amstrad CPC range. 

The pitch of the note is defined by setting a period number. 
Pitch is usually related to the frequency of the note, that is how 
many times per second the basic waveform repeats, also 
known as the number of cycles. As the note gets higher, so 
frequency increases. The period of a waveform is the length of 
one waveform cycle. Longer cycles produce lower notes or, to 
put it another way, as the note gets higher the period 
decreases. The period number can be any whole number in the 
range 0-4095. For those who wish to use their Amstrad CPC 
range to play music the following program produces a look-up 
table of notes to period numbers. Eight octaves are available. 
Octave 0 starts on middle C. 


16 REM #*** Note Table **## 

26 DIM nate#(iz) 

36 FOR j=1 TU 12:READ note$¢i>:NEXT i 
46 DATA C,C#,D,D#H,E,F,F#,G,G#,A,A#,B 
38 MODE 1 

6@ FOR actave=-3 TO 4 

“@ CLS 

S@ PRINT"Octave “r:actave:PRINT 

?@ PRINT"Note","Periaod" :PRINT 

1@@ FOR n=1 Ta 12 

116 freq=44Ge#(2* Coctavet(n-16)/12)) 
126 periad=ROUND( 1 256@6/freq) 

136 PRINT note#(n>,period 

146 NEXT n 

15@ ag=""sWHILE at="" :at=INKEYS:WEND 
166 NEXT actave 


The duration of the note is measured in 1/100th of a second 
and can be any positive number in the range 1-32,767. Zero 
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and negative values of this parameter have a meaning in 
relation to sound envelopes which we shall consider later. 

The volume of a note is defined by a whole number in the 
range 0-7, the note getting louder as this value increases. 

The final task, before we can get a note to play, is to define 
which of the sound channels A, B or C we wish to play it on. 
We do this by setting a channel status number. Think of the 
bits within the binary equivalent of the channel status number 
as controlling some function of the sound. Bits 0, 1 and 2 define 
the sound channel used. So, channel A is selected by setting 
bit 0 to one, i.e. channel status=1, setting bit 1 to one selects 
channel B, i.e. channel status=2, and setting bit 2 to one selects 
channel C, i.e. channel status=4. 

Other bits in the channel status number have other 
functions that will be covered briefly later in the chapter. The 
syntax of the SOUND command is this: 


SOUND C,P,D,V 


where C is the channel status, P is the period, D is the duration 
and V is the volume. 

The following SOUND command plays a middle C, 
period=478, at maximum volume, for half a second on channel 
A: 


SOUND 1,478,50,7 


Although the sound produced is rather crude, we have 
enough control over the sound to play a tune. This short 
program plays ‘Ba-Ba Black Sheep’: 


16 REM **** Ba-Ba Black Sheep **** 
za: 

S@ REM #* read nate data ## 

4@ DIM period( 13) ,duration¢ci3) 

38 FOR note=i1 TO 13 

66 READ period(note?,duration(note) 
7@ NEXT note 

8&@ tempo=36 

76 : 

1646 REM #* play tune ** 

116 FOR note =1 TO 13 

126 SOUND 1,period(note?,duration(note)* 
tempa,s 
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15@ DATA 239,0.5,6,6.5,239,0.5,48,8.5 
160 DATA 159,8.5,0,9.5,159,0.5,0,9.5 
176 DATA 142,6.5,127,8.5,119,6.5,142,8.5 


The program reads in the period and duration data for each 
of the 13 notes or rests in the phrase. Notice that where a rest is 
needed, this can be achieved by setting the period number to 
0. In the data statements, the duration of each note was defined 
in fractions of a note. By defining a variable, tempo, which 
we use to multiply the note duration in the SOUND command, 
the speed of the entire piece can be changed simply by altering 
its value. Try changing tempo to 50 or 75 or 15 to see the effect 
on the tune. 


Shaping the sound 


The main reason that the human ear can detect the difference 
between two instruments that play exactly the same tune is the 
difference in the quality of the sound produced by different 
instruments. A piano produces a percussive sound as its 
hammers hit the strings, whereas a harpsichord, which plucks 
its strings, makes a much sharper sound. When attempting to 
synthesise the characteristics of an instrument’s sound, using 
electronics, this quality is called the sound envelope. It is 
possible on the Amstrad CPC range to improve upon the 
coarse tones produced by the SOUND command by defining 
an envelope that shapes the sound heard and gives it a 
different quality. The envelope of a note normally has four 
main sections as shown in the diagram overleaf: 

The first section, called the attack, is characteristic of the 
note as it first starts; a sharply struck or plucked string will 
have a short attack, the note rising to maximum volume 
rapidly. The second section is the decay, the speed at which 
the note reduces in volume after the peak has been reached. 
The third section is the sustain, a period during which the note 
volume may remain more or less constant, and, finally, comes 
the release section as the note dies away completely. 
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Time 
Attack Decay Sustain Release 


Figure 6.1 


A sound envelope’s shape is defined on the Amstrad CPC 
range, using the ENV command, the syntax of which looks 
frightening, but is, in fact easy to use: 


ENV C,P1,Q1,R1,P2,Q2,R2,P3,Q3,R3,P4, 
Q4,R4,P5,Q5,R5 


where C is the envelope number, 0-15, P is the number of 
steps in each section, 0-127, Q is the vertical step size, —128 to 
127, and R is the horizontal step size, 0-255. 
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Up to five sections can be defined, each having three 
parameters, P, Q and R, to define the slope and size of each 
section. If, say, we wished the attack section to cause a rise in 
volume of 10 units in 5 time units then P, QO and R would 
approximate this digitally as a series of steps (see Figure 6.2): 

Five steps are required, so P=5. Each step is 2 units 
vertically and 1 unit horizontally, so Q=2 and R=1, respective- 
ly. A complete envelope can be approximated digitally in this 
way, as in the example shown in Figure 6.3: 

The 16 numbers that go to make up the ENV command 
consist of one envelope number and five groups of three 
numbers that define each of the five sections in this envelope. 
Envelopes do not need to have five sections, they can have 
four, three, two or even one section. As long as there are three 
numbers present for each section you want then the ENV 
command will work correctly. 

The envelope given in the example above has a duration of 
30/100ths of a second. We can adapt the SOUND command in 
several ways to include envelope shaping by the ENV 
command. A fifth number must be added to SOUND to the 
four we have already looked at. This fifth number identifies 
the envelope we wish to use with that sound. Up to 15 
envelopes can be defined, each identified by the first number 
in the ENV command’s list of parameters. We use this number 
with SOUND to select the correct envelope. If we wished to use 
a previously defined envelope, 1, with our SOUND, then the 
SOUND command would look like this: 


SOUND C,P,D,V,1 


It is worth noting that once an envelope has been defined 
using ENV it does not need to be redefined each time we wish 
to play a note using SOUND. Redefinition of an envelope is 
only necessary when you want to change the envelope’s shape. 


Envelopes and duration 


When using sound envelopes the duration of the note and its 
volume are set by the envelope shape. The fourth SOUND 
parameter, controlling volume, is therefore usually set to 0, 
allowing all the note’s volume to come from the envelope. The 
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third parameter, controlling duration, can, however, act in 
three ways: firstly, if D is positive then it controls the duration 
of the note, rather than the envelope. If the envelope duration 
was 30 time units (as in our example) and D was set to 45 time 
units, then the note would simply be silent for the last 15 time 
units. The most sensible thing to do might be to work out the 
duration of the envelope you had designed and set D to that 
value. To save you the bother of having to work this out, the 
process is done automatically if, instead, D is set to 0. The 
duration of the note is then completely controlled by the 
envelope. The third way in which D can be used is as a 
negative value. If D is negative then it defines the number of 
times the envelope is repeated. So, for example, if D were —3, 
the sound would consist of three sounds, one after another, 
shaped by the envelope. The following short program demon- 
strates this: 


10 REM xxxx*x duration demo x*xxx 

20 ENV 1,5,2,1,1,0,3,4,-1,1,1,0,12, 
6,-1,1 

30 CLS 

40 PRINT"duration @, ie envelope con- 
tro." 

5@ SOUND 1,478,0,0,1 

60 FOR delay=1 TO 1000:NEXT delay 

70 CLS 

80 PRINT"duration —3 ie three repeats" 
90 SOUND 1,478,-3,0,1 


The envelope generator program 


To allow you to experiment with volume envelopes easily this 
program can be used. The cursor keys control a small cross on 
the screen that can be moved to define the end of each of the 
five possible stages of the envelope shape. Simply move the 
cross to the required position and press the COPY key. The 
envelope stage will then be drawn automatically from the last 
section, or from the origin if you are creating the first section. 
Two envelopes are drawn by the program, in fact. One is the 
ideal envelope shape you are trying to create; the second is the 
best digital approximation to the shape, which is automatically 
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calculated and displayed by the program. Any stage of the 
envelope can be deleted by pressing DEL so that incorrect 
entries can be easily corrected. When you have finished 
designing your envelope shape, press the ENTER key to see 
the corresponding list of ENV parameters. The program also 
allows you to select the note duration, if you wish it to be 
different from that defined by the envelope. Twelve keys on 
the keyboard are defined as notes so that you can hear the 
effect of your envelope over an octave. The octave number (—3 
at the lowest to +4 at the highest) can also be selected. The 


keys are: 

EG: 8°  ‘Saaao 
p + 
es TT 


Figure 6.4 
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To design a new envelope press the ENTER key to return to 
edit mode. 


1G REM SX HS SKXXSSSSHE SESH EFESES EHH SERS SEEERSE 
2B REM HEX HEKK EE REH EK ERK EKKEEEKEEKEKKREKE 


3@ REM #* e 
46 REM **® CPC 464 Envelope Generator *# 
5@ REM ¥# HE 
6@ REM #*# by Steve Colwil] ¥¥ 
76 REM x# Cc19E5 #e 
&@ REM ¥*# #¥ 


FU REM HHS EKKHSSEE RK KH SEER ESE SESE SK KEERE 
L8G REM KXKHEREK KERR K EKER EKER EKER ERK KKEE 


116 : 

126 GOSUB 168@6:REM initialise 

13@ GOSUB 166@:REM draw axes 

146 x=16:yr=16 

15@ FOR staqe=1 TO S 

166 LOCATE 7@,3:PRINT"stage :":stage 
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178 GOSUB 26@4:REM move cursor 

166 IF at=CHRS(224) THEN GOSUB 4@66:REM 
calc stage 

19G IF aS=CHRS(127> THEN GOSUB S6@@:REM 
rubout stage 

2746 JF at=CHRE(13> THEN staqe=o:REM exit 
21@ NEXT stage 

2276 GOSUB 6@6@:REM set other sound param 
eters 
236 GOSUB 7HGG@:REM play 

244 RUN 

256 END 

266 3: 

1@0G REM *##* initialise *#** 

14@1@ MODE 2:OQRIGIN 46,2646 

1926 DIM atié> ,periad( 26) ,prese( 26) 
1436 DIM rx(5) ,rrtS) ,sxtS) ,syrtS2 

164@ s=14:1x=G:1ly=4 

1656 RETURN 

166@ REM #*2* draw axes SeR¥ 

1076 MOVE -2.-2 

19@8G DRAWR &8,156,1 

16°74 MOVE -2,-2 

1146 DRAWR 423,6 

111@ REM ** label x axis ¥* 

112@ FOR x=@ TO 426 STEF 16 

1136 PLOT x,-4 

114@ NEXT x 

1156 TAG:FOR x=@ TO 626 STEP 358 

1146 MOVE x-8,-S:PRINT x/33 

117@ NEXT x 

118@ MOVE 424,-24:PRINT"time in 1/166th 
sec"; 

1i?@ REM **® label » axis ®* 

1286 FOR y=6 TO 156 STEP 14 

{2i@ PLOT -4,y¥ 

1224 NEXT y 

1234 TAG: FOR y=@ TO 156 STEP 36 

1246 MOVE -48,x+8:PRINT y/1G; 

{256 NEXT » 

1260 MOVE -48,176:PRINT"volume"s; 

1276 TAGOFF 

1288 REM ** title ** 

1296 LOCATE 24,1:PRINT"CFC 464 Volume En 
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velope Generator" 
1366 REM **® Keypress data #% 
1316 FOR i=1 TO 12:READ press¢i>:NEXT i 


1326 DATA &61 &77 ,&73,&65,&649 ,&66,&74 
1336 DATA &67,&79 ,&68,&75,&6A 

1346 REM ** period data ** 

135@ FOR i=1 TO 12:READ period¢i? sNEXT i 


1366 DATA 478,451 ,426,442,379 

1376 DATA 358,338,319, 341 ,284,268,253 
138G RETURN 

1396 : 

2666 REM *#** move cursor #### 

2616 SPEED KEY 16,2 

2426 at=""scol=1:GOSUB 36G6:REM position 
cursor 

2436 WHILE at<>CHRé¢2249) AND at<>CHRE C13 
>») AND aS<>CHR$¢ 127) 

2696 at=""SWHILE at=""sat=INKEYS:WEND 
245@ col=@: GOSUB 3606:REM rubout old cu 
rsor 

2666 IF INKEY(@)=@ THEN y=yt+s:IF yolSe@ T 
HEN y=15@ 

2676 IF INKEY(2)=@ THEN y=y-s:IF y<i@ TH 
EN y=16 

2686 IF INKEY(1>)=6 THEN x=x+s:1F x>626 T 

HEN x=626 

2676 IF INKEY(8)=@ THEN x=x-s:IF x<snmxtl 

6 THEN x=snx+1@ 

216@ col=i1:GOSUB 36@@6:REM draw new cursa 

r 

2116 WEND 

2126 RETURN 

Zi36@ : 

366G REM **** draw curscar **#* 

3416 MOVE x-5,»y:DRAWR 14,@,col 

3426 MOVER -5,5:DRAWR @,-16 

3638 RETURN 

3646 : 

4666 REM #**#**% calculate stage *##* 

9616 col=6:GOSUB 3660:REM rubout cursor 


426 a=INT(Cy-syfstage-190/16) sb=INTCCx- 
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sx(stage-1)0/5) 

4034 IF ABS(a)<ABS¢Cb> THEN p=ABS(a) ELSE 
p=ABS(b? 

4646 IF p<>@ THEN g=INTCa/poir=INTCb/ ps 
ELSE p=1:q=a:r=b 

4456 aCSestagqe-lo=pratSestage =qialaesta 
getid=r 

4660 REM ** draw stage *# 

4670 MOVE sx(stage-1l),sytstage-1l) 

4486 DRAW x,y,1 

4690 REM ** draw approx shape ** 

4106 MOVE rx(stage-1l) rytstaqe-1) 

411@ FOR i=1 TO at 3¥stage-1):DRAWR S#at3 
¥stageti2,G@ 

4126 DRAWR G@,aC3¥staged*16 

4136 NEXT 

414@ rxtstage =xXPOSiry( stage =YPOS 

4156 sx(staged=xisy(stage =r 

4166 x=x+16 

4176 RETURN 

4186 : 

5666 REM *##** rubout a staqe *##* 

516 stage=stage-1l 

5@2@ IF stage<i THEN stage=@: RETURN 

5434 REM ** rubout approx env ** 

54@4@ FOR ey=6 TO 156 STEP 2 

5@56@ MOVE sx(stage),ey:DRAW sx(stage-1), 
ey ,G 

5@6@ MOVE rx(staqe),er:DRAW rx(stage-1>, 
ey ,@ 

S476 NEXT ey 

54886 REM ** remove env entries ** 

5O9G aCS¥stagqe-l=GratS¥stagqeti=Gial Ses 
taqe)=6 

S16@ stage=staqe-I 

511@ RETURN 

S126 : 

606@ REM **#* other sound parameters ### 
x 

4@1@ ENV 1,402) ,a03) , a4) aS) até) ac?) 
9a6B),at9),aCiG@d,acil>),atl2>,atl3),ati4dd 
saciSd,aciéd 

6626 envdur=6:FOR i=2 TO 16 STEP S3:envdu 
r=envdurtacid#acit2Z>):NEXT i 
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6436 LOCATE 1,16:PRINT"ENY command is: 1 


6646 FOR i=z TO 15:PRINT atids","3:NEXT: 

PRINT atié? 

6656 LOCATE 1,1&:PRINT"“envelope duration 
is:"senvdur 

6666 LOCATE 1,2@:INFUT"enter note durati 

on ar {enter}? for env duration" sdur 

6676 IF dur=@ THEN dur=envdur 

6886 LOCATE 1,22:INPUT"enter octave numb 

er"sact 

6696 IF act<-3 OR act?4 THEN 46586:REM ch 

eck valid octave 

6146 LOCATE 1,24:PRINT"SOUND command is: 
1, period,"sdur3", @, 1" 

6116 RETURN 

6126 : 

7666 REM ##** play moncsynth s##* 

7616 SPEED KEY dur,dur 

7626 at="""WHILE at<>oCHR¢( 13) 

7036 at=""SWHILE at=""sat=INKEY$:WEND: RE 

M get nate 

7646 FOR note=1 TO lz 

7656 IF at=CHRE(press(note)>) OR at=CHREC 

presstnote)-32) THEN SOUND 1,period(nate 

/C2* oct), dur,@,linote=24 

7860 NEXT note 

7676 WEND 

7986 RETURN 


Tone envelopes 


To create really sophisticated musical sounds any synthesiser 
needs a method of adding vibrato to a note. When violinists or 
guitarists hold a string down whilst playing a note, they often 
rock their finger back and forth gently to raise and lower the 
pitch of the note slightly. The effect is often used to make long 
notes sound more interesting. For those of you with musical 
aspirations, vibrato can be added to notes played using the 
ENT command. This command is similar to ENV, allowing 
you to shape a tone envelope for your sound. The pitch of the 
note is set by the second parameter in the SOUND command, 
but we can raise and lower the pitch slightly using ENT. 
Again, up to five sections can be defined; the example below 
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has only two sections, causing the pitch of the note to dip (i.e. 
increasing the period) before returning to normal. The tone 
period set in the SOUND command can be varied by up to 5 
units, up or down, using ENT: 
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Figure 6.5 
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If the duration of the tone envelope is greater than the 
duration of the note (as defined by the volume envelope or D 
in the SOUND command) then the remainder is ignored when 
the note is played. If the tone envelope is shorter, then the 
normal period is restored for the remainder of the note. 

As with the volume envelope, up to 15 tone envelope’s can 
be defined, each identified by a number. To select, say, volume 
envelope 1 and tone envelope 3 to shape a sound, we would 
use this SOUND command: 


SOUND 1,P,D,V,1,3 


Noise 


A seventh and final parameter can be added to the SOUND 
command to blend in noise with the note being generated. 
This parameter must be in the range 0-15. If it is set to 0 then 
no noise is added; if it is set to 15 then most noise is added. 
Adding noise ‘dirties’ the quality of the note produced, and 
can be useful in sound effects when we are trying to simulate 
shooting or explosions. 


More about channel status 


We have seen that the first parameter in the SOUND 
command, the channel status number, can be used to select 
one of the three sound channels. These are controlled by the 
first three bits of the channel status number as described 
earlier. The other five bits also have their functions.- For the 
sake of completeness these are: 


aa 


Send to channel A 
Send to channel B 
Send to channel C 


Rendezvous with channel A 
Rendezvous with channel B 
Rendezvous with channel C 
Hold 
Flush 
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The rendezvous facility is for use in pieces of music with 
more than one part and allow two channels to synchronise 
their actions and so produce notes together. 

To understand how the hold function works it is first 
necessary to realise that each channel can hold up to five 
SOUND commands in a queue. This allows new SOUND 
commands to be issued whilst an old command is still playing 
on the same sound channel. The new command is not lost but 
is added to the queue to wait for the previous command to 
finish. Normally, as soon as a sound is finished the next one in 
the queue is started, but this process can be stopped by using 
the hold function. For example, a channel status number of 65 
(i.e. 01000001) would direct the sound to channel A and cause a 
hold — effectively stopping sound processing on channel A. A 
hold is released by the RELEASE command followed by 1, 2, 
or 4 to denote sound channel A, B or C. Using the hold and 
release all five spaces in a sound channel queue can be filled 
with a SOUND command before starting to play the tune. 

Bit 7 of the channel status flushes the designated sound 
channel queue, causing all commands waiting in the queue to 
be lost. This may be useful if you wish to bring all sounds ona 
particular channel to an abrupt halt. 


The SQ command 


$Q(x) allows you to test the state of any of the three sound 
channels where x is 1, 2 or 4. The value returned is an eight-bit 
number where the state of each bit in the number relates to the 
state of various features of the channel selected. 


Number of free spaces in queue 
tested (0...4) 











Rendezvous with channel A (1=yes, 0=no) 
Rendezvous with channel B (1=yes, 0=no) 
Rendezvous with channel C (1=yes, 0=no) 
Hold at head of queue (1=yes, 0=no) 

This channel now playing (1=yes, 0=no) 
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The first three bits combine to tell you how many free spaces 
are available in the queue for the sound channel looked at. Bits 
3-6 will tell you whether the SOUND command at the front of 
the queue is set to rendezvous with one of the other channels, 
or is a hold command, and bit 7 flags whether the nominated 
channel is now playing or not. 

Because channel status and SQ are bit-significant numbers 
(i.e. the individual bits have a meaning) it is a good idea to use 
the logical operators AND and OR (see Chapter 1) to isolate bits 
within the number for testing. As a simple example of this, the 
following line of BASIC tests sound channel A to see if it is 
currently being held. By ANDing SQ with 64, bit 6 is isolated 
for testing, the other bits being masked out. 


IF (SQ(1) AND 64)=1 THEN RELEASE 1 


ON SQ(x)...GOSUB 


In addition to testing the status of a channel SQ can be used to 
trigger an interrupt when a space becomes available in the 
sound queue nominated by x. The interrupt’s priority is equal 
to that of interval timer 2 (see Chapter 5) but ON SQ. ..G0- 
SUB should be used carefully. The command is rather like a 
gun with only one bullet. Once an interrupt has been 
triggered, the command is disarmed. If you want to keep 
generating interrupts using ON SQ...GOSUB then it is 
probably best to re-issue the command (i.e. load another 
bullet) at the end of the subroutine called by the original ON 
SQ. ..GOSUB command. To make matters more confusing, 
the interrupt is also disarmed if the program meets a SOUND 
or SQ keyword. 


Sound effects 


The sound and music-making capabilities of the Amstrad CPC 
range are very wide-ranging but much practice is needed to 
achieve the sounds you want. Here are a selection of sound 
effects that you might wish to try. 


16 REM #*** gear change *#*# 
26 FOR gear=1 TO 4 
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36 FOR period=150@ TO 356 STEP -i4@+qear 
46 SOUND 1 ,period,5,7,6,4,2 
34 NEXT period,gqear 


16 REM **** lift off ¥##¥ 

2@ FOR period=246 TO S@ STEP -i 
34 SOUND 1,period,16,4,0,6,2 

46 SOUND 2,period+5@6,14,4 

5@ NEXT period 


26 REM ¥*** space jazz *¥*#* 

3G RANDOMIZE -TIME 

35 REM ** set up drone ** 

4@ SOUND 2,704,2666,3 

5@ SOUND 1,1190,2006,2 

55 REM **® test for end of drone ** 
6@ WHILE ¢SQC1.9AND 128)=128 

7@ per iad=INTCRND(1>*1666> 

88 SOUND 4,period,16@,3 


7@ WEND 
16@ SOUND 132,4,@,@:REM flush channel C 
1@ REM s#x# Super Shat HERES 


26 REM *¥** press SPACE to fire #£*** 
36 WHILE piqstly=6 

4@ IF INKEY#=" " THEN GOSUB 76 

s@ WEND 

4@ END 

7@ FOR period=1i TO 38 

86 SOUND 1,period,1,7,6,4,1 

7@ SOUND 2,46,1,35,0,6,16 

166 NEXT period 

116 RETURN 


14 REM *#** siren ¥#*## 

Zé FOR i=i TO 16 

34 FOR period=46@ TO 25@ STEP -5 
4@ SOUND 1,period,2,5 

S@ SOUND 2,period+164,2,5 

6@ NEXT period,i 


‘Stranded’ — sound and movement 


In the last chapter we added an interrupt routine that made the 
tide rise at regular intervals during the game. In this section 
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we shall add a sound effect to simulate the sound of surf 
breaking against the pillars. We also add to the movement 
routines already devised by adding subroutines to detect 
when the player’s character has fallen off the cliff-walk and 
when it is standing on one of the moving panels, allowing the 
character to be moved back and forth with the panel. 


Surfing sounds 


The effect of surf crashing against the pillars can be achieved 
by using a SOUND command that generates noise only and 
shaping the noise produced using a volume envelope. Noise 
can be generated without an accompanying tone by simply 
setting the period parameter in the SOUND command to 0. If 
the duration and volume are also set to 0 then these functions 
are controlled by the envelope. The envelope used to shape the 
surf sound appears as in figure 6.6. 

The envelope is shaped to give a sharp attack followed by a 
short period of sustain at maximum volume, before under- 
going a sharp decay to one-third of full volume. To gain the 
‘afterwash’ effect the last two sections allow the noise to die 
slowly away. The total duration of the note is around 3.5 
seconds. Add these two lines to the interrupt routine that 
causes the tide to rise: 


6216 ENV 1,5,3,3,1,6,30,5,-2,19,4,-1,68, 
1,8,20 
$226 SOUND 2,6,0,0,1,0,15 


Sound and movement 


To give the game aural as well as visual appeal we can add a 
simple sound effect to the movement routines already de- 
veloped. The subroutine that generates this sound effect is: 


7SGG REM **##* move sound effect #*#* 
7816 tone=16@+26*chary 

7826 SQUND 4,tone,5,5 

7836 RETURN 


Notice that the period of the short beep produced is 
calculated from the y coordinate of the player’s character, 
chary. This means that as the character makes its way down 
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the cliff the beeps will become lower in pitch, and rise again as 
the cliff-walk is ascended again. 

We must call this sound routine from both of the sub- 
routines, designed earlier, to control left and right movement. 
Add these two lines: 


4066 GOSUB 78@@:REM sound fx 
416@ GOSUB 7&@@:REM saund fx 


Falling and jumping onto panels 


When the player attempts to move, the program must ensure 
that there is part of the cliff-walk beneath him, be it the main 
sections or the moving panels. The simplest way to determine 
whether or not the player is standing on fresh air is to test the 
colour of a point in the square beneath the player’s character 
using TEST. Unfortunately there is a snag to using TEST — it 
requires graphics coordinates, while the program holds the 
player’s character position as character-cell coordinates. We 
therefore need a short subroutine to convert for us. See 
Chapter 4 for more details: 


6766 REM **#* convert char/qraph #**# 
6716 graphx=32*charx-16 

67246 qraphy=Se7-1 é4¥chary 

6736 RETURN 


This routine generates a pair of graphics coordinates that 
correspond to a point directly below the player character’s feet. 
We can now use these coordinates with TEST. You should 
already have a dummy routine, consisting of the title line and a 
RETURN line, for testing under the figure. We can now fill in 
the rest of this routine: 


9326 GOSUB 67@6:REM convert coords 

4336 t=TESTCgraphx,graphy) 

934@ IF t=sky THEN fallflag=1:GOSUB 4446 
: RETURN 

4356 IF t=black THEN GOSUB 47@60:RETURN E 
LSE panel=6@ 
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This routine, firstly, performs the coordinate conversion and 
then tests the colour of a point directly under the player figure. 
If the result of that test is the colour ‘sky’ then a fall routine at 
line 4400 is called and a flag, fal Lf Lag, is set to indicate 
that this has happened. The use of this flag will be explained 
later. 

The fall routine causes the player figure to move down the 
screen, by increasing its y coordinate chary within a loop 
and erasing its old position. The WHILE...WEND loop 
terminates when the figure reaches solid ground, either a 
section of the cliff-walk or a panel, and the routine moves into 
its next phase to produce an explosion effect. 


4400 REM ¥x2* fall] *Ee* 

44148 chary=charyt+i:GOSUB 6768:REM conver 
t 

4426 DI 

94936 WHILE TESTCqraphx ,qraphyI=sky 

4446 LOCATE charx,chary-1:PRINT" " 

445@ chary=chary+1:GOSUB 676@:REM canver 
t 

446@ LOCATE charx,chary:PRINT standmant 
4478 GOSUB 7860:REM sound fx 

4436 WEND 

94426 LOCATE charx,chary-1:PRINT" " 

4560 GOSUB 6S@@:REM explode 

451@ GOSUB 29@0:REM rest coords etc 

4526 El 

4536 RETURN 


The explosion routine causes a special character to be 
printed and flashes different colours at the position where the 
player figure touched down. 


6860 REM **** explode **** 
6816 DI 

6826 FOR i=1 TO 5 

6836 FOR j=i5 TO @ STEP -1i 
684@ LOCATE charx,chary 
6656 PEN j:PRINT explodes 
6866 SOUND 4,4,2,5,4,4,J 
6876 NEXT j,i 
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688@ LOCATE charx,chary:PRINT" " 
6876 DI 
696@ RETURN 


If the player is not standing on thin air then the ‘check under 
figure’ routine goes on to see if the colour underneath the 
figure is black. This colour indicates that the player is either 
standing on a panel, or is standing at the top or bottom of a 
ladder. Before the program can take any action it needs to 
determine if the player is on a panel, and, if so, which panel, 
or, if he is on a ladder, which ladder. This routine finds this 
information. 


4706 REM **** on a panel/ladder 7 *#*¥* 
4710 IF panel<>@ THEN RETURN 

472@ FOR i=i1 TQ np 

94736 IF graphy=sty¢i) AND graphx>=stx id 
AND graphx<=ex Ci? THEN panel=i:i=np 
4746 NEXT i 

4736 IF panel<>6 THEN incscore=56:GOSUB 
7706 

49766 REM ** test for ladder ** 

4776 IF ladflag=1 THEN RETURN 

4736 lad=6 

4776 FOR i=1 TO 3 

4666 IF charx=1x¢€i>? THEN lad=i:GOSUB 496 
@:i=3 

481@ NEXT i 

48206 RETURN 


The routine, firstly, checks for a panel by comparing the 
coordinates of the point under the figure with the coordinates 
of each panel until a match is found. The variable panel is 
then set to the corresponding panel number and the FOR- 
. --NEXT loop is terminated by setting the loop counter 7 
equal to np, the upper limit of the loop. One of the rules of the 
game is that every time a player hops onto a moving panel 
successfully the score is increased by 50. This is done in line 
4750. 

The second half of the routine goes on to test for a ladder by 
again comparing the player’s coordinates with each of the 
ladder’s coordinates in turn. If a match is found then the ladder 
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number is stored in Lad and a subroutine generates move- 
ment up or down the relevant ladder. As this routine is the 
subject of the topics covered in the next chapter we will simply 
insert the title and RETURN lines: 


4966 REM **** up or down a ladder ##** 
3967@ RETURN 


The next question to be answered is: What happens if the 
program decides that the player is on a panel? The answer is 
that the player figure must be made to move backwards and 
forwards in synchronisation with the panel being stood upon. 
Remember that the variable panel is now set to a number 
that corresponds to the panel the player is on. We can therefore 
add a small piece of code to the interrupt that moves the 
panels; firstly, to see if the panel currently being moved is the 
one stood on, and, secondly, if it is, moving the player figure 
accordingly. The following lines accomplish these two tasks: 


3626 IF panel=n THEN GOSUB 3846 

3E86@ REM ##** move man on panel *#** 
3816 LOCATE charx,chary:PRINT" " 

3826 charx=charxtdx(nd/32:1F charx¢i1 THE 
N charx=1 

363@ LOCATE charx,chary:PRINT standmant 
384@ RETURN 


Scoring 


As has already been mentioned, every time a player steps onto 
a panel the score is increased by 50 points. Other events in the 
program also cause the score to be increased. A general 
purpose scoring routine can be used to increase and display 
the score at any stage, setting the variable incscore to the 
amount by which we want the score increased. To ensure that 
the score is always shown as a six-digit number, leading zeros, 
that is zeros on the left-hand end of the number are added if 
necessary. This is done by string manipulation. After convert- 
ing the current score to a string using STR$ the left-hand 
character is removed. When numeric variables are converted to 
strings the left-hand character is used to carry the sign of the 
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number, if it is negative. If the number is positive then the 
leftmost character is a space. To avoid unwanted spaces 
appearing in our score display we must therefore remove this 
character. Having removed it line 775@ adds the required 
numbers of zeros to the front of score$ and the score is 
printed. The variable ze ro$ used in this process is defined 
during the initialisation routine as a string of five zeros. 


1876 zerot=STRING$(5,"@") 

77@6 REM **** increase score *¥## 

7716 PEN red 

7726 score=scoretincscore:scores=STRE{ sc 
ore) 

7736 lQqth=LEN¢ score) :scores=RIGHT#(scor 
es,lgth—-1> 

7749@ lath=LEN( score) 

@738 score$=LEFT#¢ zerat,6—-laqth)+scores 
7766 LOCATE 14,1:PRINT scoret 

7770 PEN mancoal 

7786 RETURN 


We can use this to display the original, zero, score at the start 
of the game. 


284@ LOCATE 8,1:PRINT"Score:" 
Z265@ incecore=@:GOSUB 776@:REM print sco 
re 


The main loop structure 


Until now the program loop that repeatedly calls the move- 
ment routines (lines 146@—1480) has never been able to 
terminate itself. Now that the player can fall we need to be able 
to exit this loop and add a second outer loop to count through 
the number of lives that the player has. This is where the use of 
flags comes in. If a player falls then fal lf lag is set during 
the movement routine that checks under the player figure. On 
returning to the main loop the loop will be terminated as the 
WHILE...WEND condition for continuation of the loop 
depends on fallflag and boatflag and endflag 
being 0. If any of these flags are set then the loop will 
terminate. Conditions that set boatflag and endflag 
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will be dealt with later, but for now we can add an outer loop 
to count through the number of players’ lives and a line to 
reset the flags and trigger the next cycle of this outer loop if 
fallflag is set. 


1314 numbermen=4:menhome=G6 

146@ WHILE numbermen>@ AND endtlaq=@ 
1418 LOCATE charx,chary:PRINT standmant 
1566 IF fallflag=i1 THEN GOSUB S@4a:GOTO 
173@:REM end loop 

1736 WEND 


To stop the program falling through to the subroutines once 
all four lives have been used an END statement must be added: 


1750 END 


Program structure 


We have now added several routines to those that scan the 
joystick or cursor to update the position. In addition the whole 
loop structure inherited from the last chapter is now enclosed 
within an outer loop that will terminate when the number of 
player’s lives is reduced to zero. We can show these additions 
on the program structure diagram as follows in Figure 6.7. 
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Chapter Seven 


Control characters 


In this chapter: 
The CHR$ codes 0-31 summary table 
Screen scrolling 
The ‘Snake Stomp’ program 
The transparent option 
Logical plotting modes, AND, OR and XOR 
The ‘Amstradioids’ program 
‘Stranded’ 


Moving up and down ladders 
Rescuing the pillar men 


The Amstrad CPC range’s character sets have ASCII codes 
from 32 to 255 and can be printed by the following command: 


PRINT CHR$(x) 


where x is the ASCII code of the character. The ASCII codes 
from 0 to 31 are not part of the character set and do not produce 
characters on the screen but can be used to control special 
features of the Amstrad CPC range’s graphics capabilities. We 
start this chapter by taking a brief look at the function of each 


code. 


151 


152 Game & Graphics Programming 


Amstrad control characters 

















Value 
Dec | Hex 
0 | &00 
1 &01 
2 | &02 
3 | &03 
4 | &04 
5 | &05 
6 | &06 
7 | &07 
8 | &08 
9 |} &09 
10 | &0A 
11 &0B 
12 | &0C 
13 | &0D 
14 | &0E 
15 | &0F 
16 | &10 
17 | &11 
18 | &12 
19 | &13 
20 | &14 
21 &15 
22 | &16 
23 | &17 
24 | &18 
25 | &19 
26 | &1A 
27 | &1B 





Name Parameters 

NUL None 

SOH 0-255 

STX None 

ETX None 

EOT 0-2 

ENQ 0-255 

ACK None 

BEL None 

BS None 

TAB None 

LF None 

VT None 

FF None 

CR None 

SO 0-15 

Sl 0-15 

DLE None 

DC1 None 

DC2 None 

DC3 None 

DC4 None 

NAK None 

SYN O and 1 

ETB 0-3 

CAN None 

EM Nine 
parameters, 
each 0-255 

SUB Four 
parameters; 
1-80, 1-80, 
1-25, 1-25 

ESC None 





Effect 


Does nothing 

Prints character to screen 

Turns text cursor off 

Turns text cursor on in immediate 
mode 

Sets screen mode 

Prints character at graphics cursor 

Turns on text screen: see 
CHRS$(21) 

Makes short beep: same as 
CTRL/P 

Moves text cursor back one cell 

Moves text cursor forward one cell 

Moves text cursor down one cell 

Moves text cursor up one cell 

Clears screen or window: same as 
CLS 

Moves cursor to left edge of 
window on current line 

Sets PAPE Rcolour 

Sets PEN colour 

Deletes character under text 
cursor 

Clears line from left of window up 
to and including current 
character 

Clears from current character to 
right edge of the window 

Clears from start of window up to 
and including current character 

Clears from current character to 
end of window 

Turns off text screen: see 
CHR$(6) 

Turns transparent option off/on 

Sets graphics plotting mode: see 
later 

Change to inverse video 

Defines a character: same as 
SYMBOL 


Defines a text window. Four 
parameters define left, right, top 
and bottom of window: same as 
WINDOW 

Does nothing 
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Effect 






Sets INK colour to flash 
between two specified colours 





parameters: 
0-15, 0-31, 
































0-31 
29 | &1D | GS Two Sets border to a flash between a 
parameters: pair of specified colours 
0-31, 0-31 
30 | &1E | RS None Homes cursor to top left of screen 
31 | &1F | US Two Moves cursor to cell specified by 
parameters: two parameters 
1-80, 1-25 


The general use of control characters 


The 32 control characters will perform their function if printed 
to the screen using PRINT CHR$(x), where x is the control 
character’s ASCII code between 0 and 31. Most of the control 
characters can be made to affect only the text window to which 
they are printed. For example, this short program demons- 
trates how window 1 can be changed to print in inverse video 
using CHR$(24) without affecting window 0, the normal 
screen: 


10 WINDOW #1,1,40,1,12 

20 PAPER #1,2:PEN #1,3:CLS #1 

30 PRINT #1, "HELLO" 

40 PRINT #1,CHR$(24):PRINT #1,"NOW IN 
INVERSE VIDEO IN WINDOW 1" 

5@ LOCATE 1,13:PRINT "BUT NOT IN WINDOW 
Qg" 


Passing of a list of parameters with a control character can be 
demonstrated by a simple example. CHR$(4) can be used to 
set the screen mode. The parameter we must pass with this 
control character will determine which mode is selected. So to 
switch to mode 2 we would type this command: 


PRINT CHRS$(4)+CHRS$(2) 


Where more than one parameter must be passed we simply 
chain them into a single PRINT statement as CHR$S numbers 
separated by plus signs. 
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Many of the control-characters functions are obvious fron 
their description in the table. But some control characters hav 
particularly interesting effects that are worth looking at i 
more detail. 


The transparent option 


When a character is printed into a particular cell the origina 
contents of that cell are obliterated. By selecting the transpa 
rent option with 


PRINT CHR$(22)+CHRS$(1) 


we stop this happening. With the option on, an old character i1 
a cell will show through any part of the new character that i 
not solid. This effect can be used to build up multiple characte 
images within a single square or stop any background dat. 
being erased when a character is printed on top. The character 
can even be different colours! No doubt this facility wa 
designed for adding accents and umlauts to foreign text, bu 
the effect can be used in graphics games that use tex 
characters. This option is used in several places in ‘stranded’ 
The transparent option can be turned off by 


PRINT CHR$(22)+CHRS(O) 


Screen scrolling 


The Amstrad CPC range screens can be scrolled up simply b: 
moving the cursor to the bottom of the screen and generating . 
line feed, but downward scrolling can also be achieved b 
using CHR$(11). 

The principle can be domonstrated by this simple progran 
which moves the cursor to the top of the screen and causes th 
screen to scroll down 10 lines: 


10 LOCATE 1,1 

20 FOR I=1T0 10 

3@ PRINT CHR$(11); 
40 NEXT I 
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The semicolon (;) which follows CHR$ (11) is important as 
it surpresses the line feed that would normally occur. The text 
cursor must remain on the top line whilst printing a series of 
CHR$(11) characters if the screen is to move downwards. 

By directing the CHR$(€11) characters to a window, 
individual windows can be scrolled independently. This 
program demonstrates the effect: 


1666 REM **** vertical scroll dema ***# 
1616 MODE @:BORDER 6 

14626 WINDOW 1,26,17,25 

163@ WINDOW #1, 1,20,1,18 

164@ PAPER 6:CLS:PEN 1 

1650 PAPER #1,3:CLS #1:PEN #1,5 

166G LOCATE 5,3:PRINT"main window" 
167@ LOCATE #1,7,1:PRINT#1,"window 1" 
1686 : 

1696 WHILE INKEY$="" 

1166 REM **** scroll window 1 dawn #*#% 
111@ LOCATE #1,1,1 

1126 FOR i=1 TO 18:PRINT#1,CHR#¢(11); 
1136 PRINT i; 

1146 NEXT i 

1156 REM **** and back up **** 

1166 LOCATE #1,1,18 

1178 FOR i=1 TO 18:PRINT#1 ,CHRS( 10); 
118@ PRINT i; 

1198 NEXT i 

1266 WEND 

1216 END 


Upward and downward scrolling of the screen can be a 
useful effect in certain types of arcade game as this next 
program shows. Scrolling offers a different way of moving 
characters vertically on the screen. In ‘Snake Stomp’ two 
windows are defined. The upper window contains a boot 
character which will move down in response to a keypress in 
an attempt to stand on the snake that squirms below. Needless 
to say the boot’s downward, and subsequent upward, motion 
is caused by scrolling the screen using control characters. 
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1666 
1016 
1628 
1636 
1646 
1656 
1666 
1676 
1686 
1676 
1168 
1116 
1126 
112s 
1136 
1146 
1156 
1166 
1176 
1186 
11°6 
1266 
1216 
1226 
12236 
1246 
1256 
1266 
1276 
1Z226 
iz?7ea 
1366 
i316 
1326 
1336 
1348 
1356 
1366 
1376 
1386 
1376 
1466 
1416 
1426 


REM XX KHXEKREREEREREREKEE 
REM HXXHEXKEEE KERR KEEKSE 


REM ** #* 
REM **® Snake Stomp *# 
REM ** #* 


REM XHHRSRERERRERKREKRES 


MODE @:BORDER 6 
GOSUB 2666:REM initialise 


REM #2##2 main program loap *##* 
FOR count=1 TO 26 

LOCATE #2,2,i1:PRINT #2,count 
WHILE INKEY#="" 

GOSUB 6@6@:REM rub aut ald baot 
x=x+dx 

IF x>18& THEN x=1i17:dx=-1 

IF x<¢i THEN x=1:dx=1 

GOSUB SGGG:REM eprint new boot 
GOSUB 469@:REM move snake 

WEND 

REM ##** scroll dawn x#2* 
LOCATE #1,1,1 

FOR i=1i TQ 16 

GOSUB 4664:REM move snake 

PRINT #1 ,up: 

NEXT i 


GOSUB SUHG:REM test for hit/score 


REM ##** scroll back up *### 
LOCATE #1,1,17 

FoR i=1 TO 16 

GOSUB 4964:REM mave snake 
PRINT #1,down#; 

NEXT i 


NEXT count 
CLS #1:CLS 


LOCATE #1,46,4:PRINT #1,"Game Over" 
END 
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1436 : 

Z6G6 REM #*2* initialisatian ##2* 

2916 blue=6:red=S3:black=S:qgreen=12:whi te 
=4 

2626 zerot=STRINGE(S,"6") 

26360 snake$=STRINGS( 2, CHR 231 >) 

2446 SYMBOL AFTER 256 

2656 SYMBOL 256,9,126,126,126,128,126,12 
G,126 

2@6@ SYMBOL 251 ,127,127,127,255,255,255, 
255,246 

267@ SYMBOL 252,126,124,114,255,255,255, 
259,294 

2GS@ booti#=CHRE( 256) 

2678 boot2$=CHR$(251> 

2168 bootSt=CHRE( 252) 

2116 bel 1$=CHRE( 7) 

Zi2@ ups=CHREC11> 

2136 down$=CHRE¢ 10) 

Zi4@ sx=1G:sy=7ix=lsy=1idx=1 

215@ WINDOW 1,26,19,25 

Z1ié@ PAFER blue:CLS:PEN qreen 

2176 WINDOW #1,1,20,2,18 

2186 PAPER #1,red:CLS #1:PEN #1 ,black 
2196 WINDOW #2,1,20,1,1 

2206 PAPER #2Z,blue:CLS #2:FEN #Z,white 
221@ LOCATE #2,8,1:PRINT #2,"Score: 9664 
a" 

2226 RETURN 

2236 : 

SG0@ REM #e2#2 test for hit xx 

S@1@ gx=32"x-1LS:Qqry=1G4:tl=TESTC gx, grr :t2 
=TESTR( 32,4) 

S426 IF ti=qreen OR tzZ=qreen THEN sc=sct 
SQ:PRINT bellé 

3636 IF ti=qreen AND t2=qgreen THEN sc=sc 
+166: FRINT bell? 

S64@ scoret=STR#( sc) 

S856 Tqth=LEN( score#) :scores=RIGHT$¢% scar 
e$,loth-1> 

Sa4@ lath=LEN<( scare#) 

3678 score#$=LEFT#( zerot,5-l qth) +scoret 
S866 LOCATE #2,15,1:FPRINT #2,scoret 

3696 FOR i=i TO S@@:NEXT i :REM delay 
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3166 RETURN 
3118 : 

46606 REM ##** move snake x##* 

4416 sx=sxt1-INTCRND(1)*3) 

4626 IF sx<1 THEN sx=1 

4630 IF sx>18 THEN sx=18 

4@4@ LOCATE sx,sy:PRINT snaket 
46354 PRINT CHRS(1@); 

94466 RETURN 

4670 : 

SG0G REM *#** move boot *#** 

3616 LOCATE #1,x,¥:PRINT #1,boot1i¢ 
3626 LOCATE #1,x,¥ti:PRINT #1 ,boot2#;boa 
tat 

263@ INK black,@ 

53448 RETURN 

S65 3: 

6666 REM **##* rub aut boot #### 
6416 INK black,3 

6626 LOCATE #1,x,y:PRINT #1," " 
6636 LOCATE #1,x,x+1:PRINT #1," " 
6646 RETURN 


Logical plotting 


Perhaps the most interesting addition to the Amstrad CPC 
range’s graphics by the control characters is the ability to 
perform logical operations when plotting high-resolution 
graphics. We select the operation we require by passing a 
parameter between 0 and 3 with CHR$ (23). The parameter 
value sets the logical operation type as follows: 


Logical operation 


Normal plotting mode 


Perform XOR with colour already there 
Perform AND with colour already there 
Perform OR with colour already there 





When one of the logical plotting modes is selected (by 
setting the parameter to 1, 2 or 3) a logical operation is 
performed between the colour already present on the screen at 
the point to be plotted and the new graphics colour specified. 
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Note that these colours are represented by their logical colour 
mode numbers. 

To see how a logical plot works press CTRL/SHIFT/ESC 
and type in the following short program: 


10 REM *x*x*x LOGICAL 'AND' DEMO xxxx 

20 MODE 0 

30 PAPER 7:CLS 

40 PRINT CHR$(23)+CHR$(2):REMSET 'AND' 
MODE 

50 MOVE 0@,0:DRAW 300,300,114 


In mode 0 there are 16 colours available, each colour code, 
0-15, being held as a four-bit number. The program starts by 
setting the screen colour to LMCN 7, normally bright magenta, 
in line 30. After setting the plot mode to AND the program 
draws a line in LMCN 14, normally flashing blue/yellow. 
However, we do not see a flashing blue/yellow line. Instead, 
the line is bright blue, i.e. LMCN 6. If we look at the bit 
patterns for the LMCNs used we can see why the line is the 
‘wrong’ colour. 


LMCN | Bit pattern 


Paper colour v4 0111 Bright magenta 
Graphics foreground colour 14 1110 Flashing blue/yellow 
6 


Resulting colour after AND 0110 Bright blue 










Note that the logical functions work differently in different 
modes. For example, in mode 1 only four colours are available. 
These can be represented by two bits only. We can predict 
what will happen in mode 1 by ignoring the two most- 
significant columns in the four-bit pattern. This time the paper 
colour will be bright red (LMCN 3, i.e. 11 in binary) and the 
line colour will be bright cyan (LMCN 2, i.e. 10 in binary). 

Similarly, in mode 2 there are only two colours available, so 
we need only consider the least-significant column in the 
four-bit pattern. The paper colour in mode 2 will be bright 
yellow (LMCN 1) and the line will be blue (LMCN 0). 

Performing an OR operation, instead of AND, by setting the 
parameter to 3, would yield different results. In mode 0 the 
colour of the line would be flashing pink/sky blue (LMCN 15, 
i.e. 1111 in binary). 
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XOR plotting 


The three logical plotting modes can be used to change the 
graphics foreground colour as it falls over different back- 
grounds. The most useful of the three logical operations 
possible is the XOR function as it can be used to erase 
previously plotted lines without disturbing the colours behind 
the lines. We can see why if we look at the bit patterns. Let’s 
say we are drawing a white line on a red background in mode 
0: 


LMCN 


Paper colour Red 
Graphics foreground colour White 


Resulting colour after XOR Bright magenta 
Draw again in same colour 


Result after second XOR plot Red, i.e. paper colour 
restored 





The result of performing two XOR operations on the same 
set of pixels (i.e. redrawing the same line) is to restore the 
background colour. The only problem is that we don’t get the 
line colour we wanted. Instead of a white line we get a 
magenta line. We must, therefore, choose our foreground 
graphics colour carefully. If we really wanted a white line 
(LMCN 4) on a red background (LMCN 3) then we would plot 
the line using LMCN 7, as 3 XOR 7 is 4. 

This little demonstration program shows how XOR can be 
used to remove a foreground line, no matter what colour the 
background. Bands of colour are put on the screen by defining 
a series of text windows. The line is then drawn in XOR mode, 
and then redrawn after a short delay, erasing the original line 
and restoring the background colours. 


10 REM xxxx XOR Demo xxxx 

20 MODE @:PAPER 3:CLS 

3@ PRINT CHR$(23)+CHRS$(1):REM set XOR 
mode 

40 FORwind=1T07 

5@ WINDOW 4wind,1,20,3x*wind,3*wind+2 
6@ PAPER #wind,wind:CLs #wind 

70 NEXT wind 
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8@ FORi=1T02 

90 FOR delay=1 TO 2000:NEXT delay 
100 MOVE 0,0:DRAW 300,300,4 

110 NEXT i 


An alternative method of selecting the appropriate logical 
plotting mode on the Amstrad CPC 664 is to specify a fourth 
parameter in a graphics command, using a number in the 
range 0-3. Thus on the Amstrad CPC 664: 


DRAW 100,200,2,1 


draws a line to point (100,200) in LMCN 2 using the XOR 
plotting mode. Amstrad CPC 664 owners should note that the 
CHR$ methods outlined above will work correctly on their 
machines. 


‘Amstradioids’ 


Much of what we have learned in this chapter and previous 
chapters can be illustrated by this short game program. Based 
on the classic space invaders theme ‘Amstradioids’ uses 
downward screen scrolling to make the invaders move down 
towards the laser base. The beams from the laser base are 
plotted using the XOR plotting mode, allowing them to be 
easily erased without disturbing the background. So that the 
laser base does not get scrolled along with the alien characters 
use is made of windows. In fact four windows are used each 
covering the width of the screen but occupying different 
vertical sections. Only window 1 is scrolled; thus, making the 
alien characters appear and move down is simple. The 
characters are simply printed on the top line of window 1 at 
random horizontal positions at regular intervals using one 
interrupt routine; a second interrupt routine scrolls window 1, 
again at regular intervals. If characters reach the bottom of the 
window without being destroyed by the laser base, they 
simply disappear from view. At present, the game only ends if 
an alien lands on the red laser base area, but you might wish to 
add to this, perhaps introducing other areas on the ground 
area that need defending against alien attack. 

The cross-hair cursor movements are controlled using 
INKEY numbers to detect cursor key or joystick control. As all 
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high-resolution graphics are plotted in XOR mode, making the 
cursor move is extremely easy. To erase an old cursor position 
before plotting a new one, we simply need to draw the cursor 
again, in its old position, before changing the coordinates and 
replotting. The routine that scans the cursor keys and joystick 
port calls the cursor-drawing routine, starting at line 7000, 
twice for this reason. The other time we might wish to erase 
the cursor is during the scrolling-interrupt routine, as, if the 
cursor is visible during the scroll routine, it will move down 
one character cell, and, therefore, will not be erased by a 
subsequent XOR plot to its original position. As the interrupt 
can occur in the middle of the key-scanning routine, we are not 
sure whether the cursor is currently visible or not. For 
example, if the scroll routine interrupted the main program 
between lines 4010 and 4110 then the cursor would not be 
visible, but if the interrupt occurred in any other portion of the 
main program then the cursor would be on. Because of the 
plot/replot method of erasing the cursor, it is important for the 
scroll routine to know whether the cursor is visible or not, 
when it interrupts. To provide this information the program 
makes use of a flag, cur f Lag, which toggles between 0 and 
1, each time the cursor-drawing routine is called. The scroll 
routine, therefore, will only erase the cursor prior to scrolling if 
it is currently on, indicated by cur f lag having the value 1. 
Line 2090 of the scroll routine checks cur f lag and erases 
the cursor if curflag =1, performs the scroll and then 
redraws the cursor again. If cur f | ag is not 1, then the cursor 
is already off and all that is required is to scroll the screen. 

This explanation serves to illustrate some of the difficulties 
of using interrupt routines. We must always be aware of what 
changes the interrupt will make to the main program and, if 
necessary, provide the interrupt routine with sufficient in- 
formation to restore the original conditions after it has done its 
job. In the example described above, the cursor will have the 
same status after the interrupt as before it, i.e. if the cursor was 
visible it will still be visible after returning from the interrupt. 
Similarly, if it was off when the scroll routine interrupted, then 
it will be off on return to the main program. Because the 
interrupt will always restore the cursor status we do not need 
to check cur f Lag when drawing or erasing the cursor in our 
key/joystick-scanning routine. 
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16 REM SXXXXSKRKKEKKKKESZKAKEKEEKKRKES 
2G REM HEH RKRKRKKKEKEKKREKKKKKEKKRKKKRKEE 


36 REM ** x* 
40 REM ** Amstradioids ** 
36 REM #* e* 


6B REM KHER KK EKKKKKRKEKKEEKKEKKKEKKKESE 


7G REM XXX XERKKKREKKKKEEEKKKREEEKKERE 


176 

1666 
16160 
1626 


GOSUB 1666:REM initialise 

WHILE endflag=6 

GOSUB 4666:REM scan Kers/jorstick 
WEND 

GOSUB SG@66:REM qame over 

END 


REM ¥##* initialisation **#* 
MODE @ 
PRINT CHR#¢23)+CHRS¢(1>:REM XOR plat 


mode 


1836 
1646 
1656 
1466 
1076 
1486 
1696 
1166 
1116 
1126 
1136 
1146 
1156 
1168 
1176 
1186 
1176 


SPEED KEY 5,5 

zerot=STRINGS$(6,"@"> 
qreen=12:black=S:red=S:whi te=4 

bl ock$=STRING#(3, CHR#( 143) > 

base S=CHRE( 24949) :up$=CHREC 11> 

exp] odet=CHRS( 238) 

scores="G000606" 
ds=8:curx=326:cury=266 

REM #* set up envelopes ## 

ENV 1,3,5,1,1,40,28,5,3,1 

REM ** alien array ¥# 
aliennum=6:DIM aliencodetaliennum?> 
FOR i=i TQ aliennum 

READ aliencodeti?:NEXT i 

DATA 171 ,226,224,225,252,253 

REM ** define windows ** 

WINDOW 1,26,23,23:PAPER black:PEN r 


ed:CLS 


1266 
CLS 


1216 WINDOW #2,1,26,1,1:PAFER #2,black:P 


WINDOW #1,1,26,2,22:PAPER #1,black: 
#1 


EN #2,white:CLS #2 
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1226 LOCATE #2,4,1:PRINT#2,"Score aaaaaa 


1236 WINDOW #3,1,26,24,25:PAPER #3,qreen 
:CLS #3 

1246 basex=1@:basey=1:REM start coords 
125@ firex=32*basex-1é:firey=48 

126@ LOCATE basex,basey:PRINT basset 

1276 PEN #3,red:LOCATE #3,basex-1,1:PRIN 

T #3,blockt 

1286 REM ** set up interrupts ** 

1298 scrollrate=8G:alienrate=76 

1306 EVERY scrollrate,1! GOSUB 2600:EVERY 
alienrate,2 GOSUB 32466 

1316 GOSUB 7@66:REM initial cursor posit 
ian plot 

1326 RETURN 

1336 : 

2660 REM *#*** scroll interrupt **** 

2616 alienrate=alienrate-2:IF alienrate< 
36 THEN alienrate=36 

2620 SOUND 2,4600-c ,580,5:c=2000-c/2:1F ¢c 
>S906 THEN c=3986 

263@ REM **® check for overrun ** 

264@ LOCATE #2,1,1 

2656 FOR scan=-32 TQ 32 STEP 32 

2666 t=TEST¢firextecan,fireryté.:1F t<ob) 
ack AND t<>red THEN endflag=1 

2670 NEXT scan 

26986 LOCATE #1,1,1 

2676 IF curflag=1 THEN GOSUB 766@:PRINT 
#1,up$;up#:GOSUB 7@6@ ELSE PRINT #1 ,up#:; 
ups 

2186 RETURN 

Zi16 

S606 REM #222 place a character interrup 
t ¥#eR* 

S@1@ EVERY alienrate,2 GOSUB 3406 

3426 SOUND 4, INTC RND(19*306),34,5 

S436 alienx=INTCRNDC1>*26+1) 

3646 code=INTCRND(1)*aliennum+l> 

S656 LOCATE #1.,alienx,1:PEN #1 ,cade*2:FR 
INT#1, CHRSCaliencodetcode)>; 

26466 RETURN 

3478 : 
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4666 REM *#**® move cursar *#*## 

94616 GOSUB 76@@60:REM rubout cursor 

4426 dx=6:dy=6 

4636 IF INKEY(1>=6 OR INKEY(75)=6 THEN d 
x=ds:dyv=6 

9@4@ IF INKEY(8)=6@ OR INKEY(74)=6 THEN od 
x=-ds:dy=6 

4456 IF INKEY(@)=6 QF INKEY¢72)=0 THEN gd 


x=6:dy=ds 
49446 IF INKEY¢(2)=6 QR INKEY(73)=@ THEN d 
x=8:dy=—-ds 


4@76 IF INKEY(9S)=6 GR INKEY(764)=6 THEN G 
OSUB S#66:REM fire 

4686 curx=curxtdxicurxv=currtdy 

4676 IF curx<¢@ THEN curx=639 

416@ IF curx>é39 THEN curx=@ 

4116 IF cury<tfirey OR cury>383 THEN cury 
=firey 

4i26 GOSUB 7GG@:REM draw cursor 

4136 RETURN 

Sida : 

5@4@ REM #£*£*#% fire *E#¥ 

5@16@ DI 

526 REM **® shoot ** 

sG3G SOUND 1,26,6,8,1,0,1 

S@4@ MOVE firex,firery: DRAW curx,cury,l 


a656 FOR delary=1 TO 1@6:NEXT delay 

5966 MOVE firex,firey:DRAW curx,cury,l 
387H REM ** hit ? ¥*® 

5486 IF TEST¢curx,cury)<>black THEN GOSU 
B 64@@:REM hit 

3496 EI 

S1@G RETURN 

53116 : 

6666 REM =eee hit *Hee 

6616 incscore=24GG*TESTCcurx,cury):score= 
ecaretincscare 

$426 scoreS=STRé( score) :]lgth=LEN( scores) 
-j 

6630 score#=LEFT#( zeros, é-lqth) +RIGHT#¢s 
core$,]lqth) 

644@ LOCATE #2,14,1:PRINT#2,scores 

6656 REM ** erase alien ## 
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6966 charx=INTCcurx/32 > +1 rchary=INT¢ (362 
-cury)/146)+1 

6676 PEN #1,red:LOCATE #1,charx,chary:PR 
INT#1 ,explodet 

6686 FOR delay=1 TO S@:NEXT delay 

6696 LOCATE #1,charx,chary:PRINT#I1," " 
616@ RETURN 

6165 : 

7666 REM **** plot cursor ###*# 

7016 DI 

7626 curflag=i-curflag 

7636 MOVE curx-8,cury:DRAWR 16,4,6 

764@ MOVER -&,6:DRAWR G6,-16 

74356 EI 

7666 RETURN 


S666 REM *#**® game aver #### 

8618 dummy=REMAIN( 1) :dummy=REMAIN( 2) : REM 
interrupts off 

8426 SOUND 135,@:REM flush all sound que 


S636 MODE @:PAPER @:PEN 1 
8046 LOCATE 6,12:PRINT"Game Over" 
S656 LOCATE 2,14:PRINT"Your Score "sscor 


S@6@ FOR delay=1 TO 2666:NEXT delay 
867@ LOCATE 2,16:PRINT"Another game (¢(y/n 


S486 junkS=INKEY@:WHILE junk#é<>"" 

86968 junkS=INKEYS sWEND 

S1G@8 agt=""SWHILE at<>"y" AND at<>"n" 
S11@ as=INKEYS :WEND 

SizG@ IF at="y" THEN RUN ELSE SPEED KEY 1 


Structure diagram 


The structure of the ‘Amstradioids’ program is simple. The 
game comprises of three parts: an initialisation routine, where 
windows and characters are defined and interrupt timings 
selected; a main loop, where the keys/joystick are scanned, the 
cursor moved and the alien characters are scrolled onto the 
screen using interrupt routines; and a game-over section, 


Control Characters 167 


where interrupts are disabled and the player is given the 


option of another game. 


WHILE endflag=o 
..WEND 
Place a char- 
acter interrupt 











Initialise 


Scroll 
screen 
interrupt 


Scan 
keys or joystick 


Fire button 
pressed 
















Figure 7.1 


‘Stranded’ — climbing ladders and rescuing 


In the last section of ‘Stranded’ we dealt with jumping on and 
off the moving panels. This included a routine to test 
underneath the player figure to see what it was standing on. 
We inserted dummy title and RETURN lines for the routine 
which deals with the case of the player being on a ladder. In 
this section we look at this routine, which completed the 
cliff-walk section of the program. We also look at the routines 
that allow the player to rescue men stranded on the pillars. 


Moving up or down a ladder 


The subroutine that checks under the figure (lines 4700— 
4820) sets a variable Lad to 1, 2 or 3 if the player figure is 
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standing on a ladder. The value of this variable relates to the 
ladder number (there are three ladders!) and can therefore be 
used to access the correct elements of the ladder arrays, so that 
the player can be made to move down or up the ladder and the 
ladder redrawn. Before the player can be moved we must 
determine whether it is at the top or the bottom of the ladder 
indicated by lad. This can be easily done by comparing the y 
coordinate of the player figure, chary, with that of the start 
point of the ladder, Ly (lad). A variable dy is set to1 or -1 
to indicate the direction in which the player figure must move. 
The value of dy is determined by lines 4910 and 4920. The 
routine then enters a loop to move the player figure. When the 
figure is printed on the ladder the routine selects the 
transparent option so that only the parts of the ladder that lie 
directly behind the player will be erased. As each successive 
character position is erased the ladder is quickly redrawn by a 
simple GOSUB call to the individual ladder-drawing routine. 
As Lad is also used by the ladder-drawing routine the correct 
ladder is automatically selected. To give the impression of 
climbing, the player figure is toggled between CHR$(250) 
and CHR$(251) from the standard Amstrad CPC range 
character set. 

Having completed the loop, the player figure will now be 
standing at the top or bottom of the ladder in question. One 
problem of an arrangement where the figure is automatically 
moved down a ladder if found to be standing at the top, is that 
if the figure has just climbed the ladder then it will be detected 
as standing at the top of the ladder and automatically sent 
down again. The player figure will in fact climb up and down 
the ladder endlessly unless we do something to avoid this 
undesirable feature. The simplest way is to set a flag to 
indicate that the ladder has just been negotiated and insert a 
test in the ‘check under figure’ routine to RETURN if the flag is 
set. Line 504@ sets Ladflag to 1, before increasing the 
score by 100. If the ladder just scaled was the third, i.e. the one 
down to the jetty, then we wish to exit our main loop and enter 
a new routine that deals with that section of the game. Again a 
flag is used for this purpose: boat flag is set to 1 in line 
5050. 

During the ‘check under figure’ and ‘up or down a ladder’ 
routines interrupts have been disabled. If the player has to go 
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up or down a ladder then the interrupts are disabled for so 
long that a queue will build up. To flush this queue (see 
interrupts in Chapter 5 for more details) we reset the timers at 


line 5060. 


450@ REM **2* up or down a ladder #22 
491@ IF chary=ly¢€lad)-1 THEN dy=-1 

$926 IF chary=lytladd-l1l¢lad)-1i THEN dy= 
1 

47aq@ FOR v=1 TO 11¢1lad) 

49446 ladchar=1-ladchar 

493@ LOCATE charx,chary:PRINT” " 

4766 GOSUB 6566:REM redraw ladder 

49760 charr=charyt+dy 

4988 PRINT transont 

496 LOCATE charx,charry: PRINT CHRS¢( 25641 
adchar) 

S@G@@ FRINT transaff# 

5@i@ FOR delary=1 TO 18@@:NEXT 

S626 GOSUB 7886:REM sound x 

3838 NEXT » 

SH4G@ ladflag=liincecare=1G6:GOSUB 774a:R 
EM inc score 

o656 IF Jlad=S AND boatflag=& THEN boat] 
aq=1 

SHé6G resetflaq=l:REM reset timers 

5478 RETURN 


Ladf lag is only cleared when the player figure moves 
from the top or bottom of the ladder under cursor key or 
joystick control. These two lines must be inserted in the ‘move 
left’ and ‘move right’ routines to do this: 


4@5G IF ladflag=i THEN ladtlaq=&@:GOSUE «4 
348 
4156 IF ladflag=1 THEN ladtlaqg=@:GOSUB 64 
348 


Rescuing the men 


If the third ladder was descended then, as described above, 
boat flag will be set to 1 and the main loop between lines 
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1468 and 1480 will be exited. The next stage is to walk 
down the jetty and get in the boat. This section of the game is 
handled by a subroutine at line 5100 which is called by this 
line from the main program: 


1526 GOSUB 518@:REM down gangqway 


The jetty is formed from text window 3, to move the man on 
the jetty we must therefore switch to print to stream 3. As the 
character coordinates within any window are related to the 
top-left corner of the window we must also change the values 
of charx and chary to fit in with this new system. In 
addition we must change the current PEN colour in window 3 
to be that of the player figure. We shall see later that although 
this is normally white, it can be red, signifying that the player 
figure is carrying a rescued man. 

Once we have made the necessary changes to relate to 
window 3, we can move the player figure down the jetty. 
Again, CHR$(250) and CHR$(251) are toggled to pro- 
duce a walking effect. At the end of this routine the player is 
made to get into the boat. The sea area is defined as window 2, 
so, again, we must change charx and chary to fit in with 
the coordinate system for this window. Finally, the 
s tandmans$ character and the boat$ character are printed 
in different colours within the same character square, using 
the transparent option, by a further subroutine at line 6000. 


3166 REM **** down qanqway *##* 

911@ LOCATE charx,chary:PRINT" " 

9126 GOSUB 65@6:REM redraw ladder 

S136 charx=1:sPEN #3,mancol:REM change to 
stream 3 

3146 FOR chary=2 TO 5 

S158 tag=1-tag 

S1i6@ LOCATE #3,charx,chary:PRINT#3, CHRS 
(256+tag) 

59176 FOR i=1 TO 16@:NEXT:REM delay 

Sig8@ LOCATE #3,charx,chary:PRINT#3," " 

39198 GOSUB 78@0:REM sound x 

s26@ NEXT chary 

3216 REM **** onto boat **** 
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3226 charx=18:chary=7:REM change to stre 
am 2 

3236 manink=whiteink:GOSUB 4@4@:REM prin 
t man/boat 

3246 RETURN 

66G@ REM **** print man and boat **#* 
691@ PRINT#2, transont 

6626 INK 15,blueink 

6636 LOCATE #2,charx,chary:PEN#2,15:PRIN 
TH2,standmant 

6640 LOCATE #2,charx,chary:PEN#2,green:P 
RINT#2, boats 

6656 INK 15,manink 

6666 PRINT#HZ, transoff#; 

6870 RETURN 

6486 : 


Steering the boat 


Once the player figure is in the boat then the program enters a 
new loop within the main program, allowing the boat to be 
steered left or right across the screen. Two routines exist to 
scan the cursor keys or joystick, and are similar to those used 
to control the player figure on the cliff-walk: 


[OGG REM *###* scan boat joystick =x#* 
5518 DI 

S926 IF JOY¢@.=left THEN GOSUB S44 
5936 IF JOY¢@)=right THEN GOSUB 5766 
3546 IF JOY¢@>=fire THEN GOSUB Soaa 
59598 EI 

5966 RETURN 

SSG6@ REM *#2#* steer by cursar Hee 
8514 DI 

6526 IF INKEY¢8>=6 THEN GOSUB S606 
85380 IF INKEY*(1)=@ THEN GOSUB 57696 
8544 IF INKEY¢4?7)=6 THEN GOSUE Saag 
8556 EI 

85466 RETURN 


As before, the correct routine is selected by testing the value 
of joyflag within the main program loop. These lines 
should be added to the main program section: 
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154@ REM #*** steer boat ###* 

1556 : 

1356@ WHILE fetchflag=@ AND endflag=@ 
1576 IF joryflag=1 THEN GOSUB 55@@ ELSE G 
OSUB 8546 

1586 WEND 


Two routines are used to move the boat and man to the left 
or right under cursor key or joystick control. Notice that 
fetchflag, one of the flags that can terminate the 
WHILE...WEND loop above, is set to 1 if the boat is moved 
right to make char x =18. This horizontal coordinate corres- 
ponds to the boat being next to the jetty. In this instance the 
program must move on to the next program section: to get out 
of the boat and move back along the jetty. 


3606 REM *#** move boat left ###% 

3614 LOCATE #2,charx,chary:PRINT#2," " 
2626 charx=charx-J:IF charx<l1 THEN charx 
=1 

S626 GOSUB 6@@6:REM print man/boat 

9646 GOSUB 7866:REM sound fx 

=365@ RETURN 

3786 REM ##** move boat right ##** 

5371@ LOCATE #2,charx,chary:PRINT#2," " 
a720 charx=charxti:1F charx>i8& THEN char 
x=18 

S736 GOSUB 6660:REM print man/boat 

5746 GOSUB 786@:REM sound fx 

S756 IF charx=1& THEN fetchtlagq=i 

5768 RETURN 


At this stage it is worth noting the rather special way in 
which boat and man are moved by the subroutine at line 
6000. During the programming of this section it was found 
that moving the boat and man together caused the man 
character to flicker badly, caused by the delay between erasing 
it and reprinting it in its new position. To get around this 
problem the subroutine initially sets the INK colour, 15, that 
will be used to print the man to the background colour, blue. 
Only after both characters have been printed is INK 15 
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redefined to be the correct colour for the man character. In this 
way the flicker is reduced. 


Rescuing a man 


A man can be rescued by manoeuvring the boat next to the 
pillar on which he is standing and pressing the joystick fire 
button, or the space bar. In either case a rescue routine will be 
called. Up to now we have not dealt with the seven men on the 
top of the pillars. One of two fates await them: they can be 
rescued by the player, or they can be drowned as the tide 
washes over the top of the pillar. For the purposes of the game 
the program needs to know the status of each pillar man: is he 
safe, drowned or still standing on the pillar? To keep track of 
the status of each man two arrays are used, each with seven 
elements. If the man is rescued then the correct element in 
safeflag() is set to 1. If, however, the pillar man is 
drowned then the corresponding element of drownf lag () 
is set to 1. These arrays, along with an array max Lev (), used 
to indicate the maximum safe water level for each pillar, are 
dimensioned at line 1230: 


{236 DIM drownflagt 7) ,safeflagt 7) maxlevey) 


The following routine is called if the fire button or space bar 
is pressed whilst the boat is next to a pillar: 


S8G@ REM #e2#* rescue man ¥X#* 

3816 pilln=charx/2 

S626 IF pilln<>INT¢pililn> OR charx?>i4 TH 
EN RETURN 

S83@ IF carryflag=i THEN RETURN 

5846 IF safeflagtpilln2»=1 THEN RETURN 
S656 carrytlag=lisafetlag¢pililno=l 

5846 remht=Stpillarhtpillnd-leveltpillar 
¥ 

Se7G@ LOCATE #2, ,pillextpillnot+i,pilley-pi 
Tichtpillno-t? 

SS88@ IF remht<@ THEN PRINT#2," " ELSE PE 
N #2,pastgreen:PRINT#2,baré 

896 manink=redink:GOSUB 4866 
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3964 mancol=red 

S718 incscore=1460-1G¥%remht:GOSUB 7744:R 
EM inc score 

3726 GOSUB 7966:REM sound fx 

S36 RETURN 


The pillar number can be easily found by dividing the boat’s 
horizontal coordinate by 2. If this is not an integer, or the value 
of charx exceeds 14, then the boat is not directly next to a 
pillar and no further action is taken. Another possibility is that 
the player has already rescued one man and has not yet 
returned this man to the top of the cliff-walk. This condition is 
detected by testing the status of carry flag used to indicate 
that the player is already carrying one rescued man. If so then, 
again, no further action is taken. If no RETURN is made 
during these preliminary tests then carryflag and the 
relevant element of the safeflag() array are set to 1, to 
indicate that the man on this pillar has been saved. The man 
on the top of the pillar must then be erased. Normally this will 
be done by printing, not a space, but a character where the 
lower part is filled, in the same position as the man was. This 
character is referred to as bar$ in the program and must be 
defined during the initialisation section. Insert this line: 


1666 bar é=CHRE( 2164) 


There is a chance that the man might be rescued just as the 
tide is washing around his ankles, in which case we would not 
want to print bar$ but merely a space. To determine the 
water level when the rescue takes place, a variable remht is 
calculated from the height of the pillar, the level of the water 
and a correction factor to account for the fact that the green top 
of the pillar is not included in its height, pillarh(). 

Having erased the man on the pillar, the player figure’s 
colour is changed to red, to indicate that he is carrying a 
rescued man. Note that the player figure’s INK colour must be 
changed along with its mancol PEN colour, so that the 
subroutine that prints man and boat together, at line 6000, 
will work correctly, as previously described. The score is then 
incremented by a factor calculated from the closeness of the 
rescued man to drowning — the later a man is rescued, the 
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higher the bonus! Finally, a ship’s horn sound effect signals 
that the man has been successfully rescued before a return is 
made to the main program. The siren sound-effect subroutine 
is as follows: 


7766 REM *#**® siren sound effect *#2* 
7910 DI:sFOR i=1 TO 2 

7926 FOR per=46@ TO 256 STEF -5S 

7936 SOUND 1,per,2,5 

7946 SOUND 2,per+166,2,5 

795@ NEXT per,i 

7966 SOUND 1,1660,46@,2 

7976 EI:RETURN 


Back up the gangway 


When the boat is steered back to the jetty then fetchf lag 
is set to 1, terminating the WHILE...WEND loop that 
controls the boat-steering section of the game. The next event 
is for the player figure to go back up the gangway. This is 
accomplished by calling a subroutine from line 161@ of the 
main program: 


1616 GOSUB S3@@:REM back up qanqway 

336@ REM #*2* back up ganquay ##** 

5316 LOCATE #2,charx,chary:PEN #2,qgreen: 

PRINT#2, boat 

532@ charx=1:PEN #3,mancol:REM change to 
stream 3 

533@ FOR chary=5 TO 2 STEP -1 

34@ taoq=i-tog 

53356 LOCATE #3,charx,chary:PRINT#3, CHRS 
(256+ tag) 

536@ FOR i=1 TO 16@:NEXT:REM delay 

5376 LOCATE #3,charx,chary:PRINT#3," " 
3386 GOSUB 786@:REM sound fx 

3396 NEXT chary 

5446 charx=19:chary=17:REM change to str 

em 1 

3914 PEN mancol:LOCATE charx,chary:PRINT 
standmant 

5426 lad=3:DI:GOSUB 49@6:EI:REM up ladder 

3436 RETURN 
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This subroutine effectively does the reverse of the sub- 
routine at 5100, discussed earlier, taking the player figure up 
the jetty and up the ladder before returning. Because the main 
program is not yet complete, the game will only be fully 
playable up to this point. 


Drowning 


Now that we have discussed the existence of two flag arrays to 
keep track of each pillar man’s status. it seems a good time to 
insert some code into the ‘raise water level’ interrupt routine 
that causes the tide to rise. Line 6180 calls a subroutine at 
6300 if the water level has risen sufficiently to cover a pillar 
man. 


é1o@ IF levelomaxlev¢pn>? AND drownflaqgtp 
n?=6 AND safeflagqtpn>=@ THEN GOSUB 6366 


Notice that the relevant elements of drownf lag() and 
safeflag() must both be 0 before the ‘drown’ subroutine 
is called. This small subroutine then sets the correct element of 
drownflag() and calls a sound effect to indicate to the 
player that another man has drowned. 


636@ REM **#** drowned man *#*#** 

63146 IF safeflagtpnd=1 THEN RETURN 
6326 drownflagtpn>=1 

6336 GOSUB 8@6@:REM sound fx 

6346 RETURN 

S666 REM **** drown sound efect *##* 
6018 DI:FOR per= 256 TO 46@ STEP 5 
S@26 SOUND 1,per,3,5 

8636 NEXT per 

S64@ EI :RETURN 


Structure diagram 


The routines covered in this chapter make a substantial 
addition to the structure diagram of the program. We have 
added routines to record drowning men and move the player 
figure on the ladders, but have also introduced three new 
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a down-jetty routine, a 


elements to the main program: 


move-boat loop and a back-up-jetty routine. Notice how the 


interrupt routines that raise the water level and move the 


panels also interrupt our boat-moving loop. 
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Chapter Eight 


Programming tips and 
hints 


In this chapter: 
Structure versus speed 

Getting more speed out of BASIC 
Programmer’s aids 


Definable keys 

Renumbering program, the RENUM command 

The trace option, TRON and TROFF 

Handling program breaks, ON ERROR GOTO, ERR, ERL, 
RESUME ON BREAK GOSUB 


‘Stranded’ 


Back up the cliff-walk 
End-of-game and next-level routines 
A title board 


Structure versus speed 


Throughout this book the approach has been to teach good 
programming skills through learning to program graphics 
games. One of the spinoffs of learning to program through 
graphics is that it is easy to see and understand the interplay 
and relationships of different sections of the program. It is 
becoming generally recognised that programming in struc- 
tured units is, in most circumstances, the best style of 
programming, although there are exceptions to this rule. 
Although BASIC does not make it easy to structure programs, 
as opposed to say Pascal, I have tried to demonstrate some of 
the techniques that can be used in BASIC to get around its 
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difficiencies. As we shall see by the end of this chapter, the 
major program ‘Stranded’ uses only three GOTO statements in 
all. Although the aim of structuring is not simply to avoid 
using GOTO, the fact that it is possible to write such a long and 
complex program without resorting to their use does indicate a 
reasonable program structure. In Chapter 1 examples of BASIC 
structuring techniques were given along with some examples 
of dealing with the same programming problem in an 
unstructured way. The development of ‘Stranded’ over the 
course of the book in simple stages has only been possible 
because of the structured manner of the program — indeed 
presenting the same program written in an unstructured way 
would probably have not even been possible — the reader 
becoming lost in an ever more complex web as program 
control darted around the listing. I hope by this stage in the 
book you will appreciate that a well-structured program is also 
a more readable and easily understood program; each section 
having a clearly defined and labelled purpose within the 
program as a whole. 

As mentioned earlier there are cases where structuring is not 
desirable, most notably in the quest for speed. Structured 
versions of programs will not usually run as fast as an 
unstructured version: the reasons for this are more to do with 
the difficulty of structuring BASIC programs than the efficien- 
cy of unstructured ones. To illustrate why structured programs 
tend to run slightly slower let us take the example of leaving a 
loop under a certain terminating condition. In an unstructured 
format the loop may be controlled by an IF...THEN 
statement that tests for the terminating condition, looping 
back while the condition remains false. In a structured 
program we might use a WHILE. ..WEND loop to do much 
the same thing, but let us imagine that the terminating 
condition is set within a subroutine that is called from within 
the loop. To terminate the loop in this case we would probably 
need to set a flag variable within the subroutine if the 
terminating condition was found to be true. The value of this 
flag would then be tested again by the WHILE. ..WEND loop 
after return from the subroutine had been made. In the 
structured format we are in fact doing approximately twice the 
work that needs to be done in the unstructured version — we 
perform a test and set a flag, and then perform a test on the flag 
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to actually terminate the loop. In most applications the slight 
reduction in speed that results is not significant. The only time 
where it is likely to be important is when programming games 
that require high-speed movement on the screen. In this case it 
is likely that to produce the speed needed that BASIC would be 
too slow anyway and the programmer would have to use 
machine code. If, however, maximum speed in BASIC is your 
aim then there are ways that speed can be improved whilst still 
retaining a good structure: 


1) Place the subroutines used most often within the program 
at the beginning, arranging the other subroutines in order 
of use, the one used least frequently being at the end of the 
program. When BASIC obeys a GOSUB call it searches 
through the program from the beginning for the line 
number given in the GOSUB call. Obviously, if the 
subroutine is nearer the start of the program then it will be 
found quicker. 

2) Use variable names and constants rather than actual 
numbers so that BASIC does not have to go through the 
process of reconverting into binary format every time the 
number is encountered within the program. 

3) Try to ensure that you are not performing unnecessary 
tasks within looping structures — Could the task be done 
just once before entering the loop? Are you testing for 
conditions at the right place within a program block — do 
you then go on to do jobs that are not required if the 
condition you are testing for is true/false? 

4) Make use of the user-defined function DEF FN to do 
often-repeated calculations. For example: 


10 DEF FN hypotenuse=SQR(opp 2+adj 2) 
20 opp=10:adj=2:PRINT FN hypotenuse 


Note that the DEF FN must come before the FN statement 
that uses it. 
Programmers aids 


Definable keys 


Locomotive BASIC offers a number of added facilities to make 
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the programmer’s task less of a chore. When typing in a 
program that uses the same phrase or keyword it can be 
annoying to have to type in, or use the cursor keys to copy, the 
same things time after time. For this reason the Amstrad CPC 
range allow you to refine the numeric keypad to the right of 
the main keyboard so that when you press a key it will 
automatically print a phrase or keyword. Typing in this, for 
example: 


REY <3 9 5." BOD. Eo AeeoP EN sar AP Ek 
@:LIST"+CHR$(13) 


redefines the ENTER key on the numeric keypad to list a 
program in mode 1, whenever the key is pressed. The 
CHR$(13) at the end is the equivalent of pressing the main 
ENTER key, as you would after typing in a command. This can 
be useful when writing and debugging a game that uses mode 
0, as a program listed to the screen in mode 0 is difficult to 
read. By omiting the CHR$(13) on the end of the key- 
defining expression, we can define the key as a way of 
entering a regularly used keyword. For example: 


KEY 139,"CHRS(C" 


defines the numeric keypad ENTER key to print CHR$(. We 
can then add the code number and bracket in the usual way. 
All 12 keypad keys can be defined in this way. Regular 
programmers may even wish to write a short program that 
they load in and run to program these keys to their own 
specifications before starting a programming session. The 
keypad ENTER key has a code of 139 (known as its expansion 
code) as used in the examples above. The complete list of codes 
is shown on the following page. 


Renumbering programs 


Locomotive BASIC provides the programmer with a fairly 
powerful renumbering facility. You may need to renumber 
your program to fit in extra code, or simply to make the listing 
more attractive once the program is completed. The RENUM 
command can have up to three parameters: 


RENUM old Ln,new ln,step size 
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Expansion code 


f0] 
1 
2 
3 
4 
5 
6 
7 
8 
9 


ENTER 
RUN” (CTRUENTER 





All GOSUBs and GOTOs are automatically changed to take 
account of renumbered sections of the program. If all three 
parameters are left out then the program is renumbered from 
line 10 in steps of tens. Just using the first parameter declares 
the starting line number, and the program is incremented in 
tens. Using the first and second parameters together allows 
you to renumber sections of the program, with the optional 
third parameter allowing you to specify step sizes other than 
tens if required. 


The trace option 


This debugging aid prints the line number being executed in 
square brackets on the screen if enabled by the command 
TRON. Because it interferes with the screen display it is often 
only of use to graphics programmers for debugging small 
sections of code that do not output to the screen. However, in 
other programming areas the trace option can be useful in 
tracking down the line number where things are going wrong. 
It is disabled by the TROF F command. 


Trapping program breaks 


When a program is running there are basically three ways in 
which it can end: it can finish successfully according to the 
correct flow of the program; it can stop due to an error; or it can 
stop because the ESC key has been pressed twice. It is often 
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useful to be able to trap these last two sources of interruption 
to the program and Locomotive BASIC makes this very easy. 

Errors can be trapped using the ON ERROR GOTO com- 
mand. This command, unlike most BASIC commands, needs to 
be issued only once at the beginning of the program to remain 
in force until the program ends normally, or another ON 
ERROR GOTO command is issued. If an error occurs then the 
program jumps to the line number specified by this command, 
rather than stopping with an error message. We can write an 
error-handling routine that prints out the error number and 
the line at which it occurred, before resuming with the 
program. ERR and ERL are reserved variable names that give 
the error number and line number, respectively, the RESUME 
command allows the program to continue from where it left 
off, from the next line or from another specified line number. It 
may be that we want to ignore, say, the ‘division by zero’ error 
(that has error number 11) but halt the program if any other 
error occurs. The following example demonstrates this: 


10 REMxxx*x Error handling demo x*xx*xx 
20 FORx=5TO-5 STEP—1 
30 y=25/x:PRINT y 


40 NEXTx 
5@ SPLURDGE 
60 GOTO020 


1000 REMxx Error handler x* 

1010 IF ERR=11 THEN PRINT"Div by zero but 
what the heck! ":RESUME NEXT 

1020 PEN2:PRINT"Error";ERR;"at 
Line;"ERL:PEN 1 

103@ WHILE INKEYS$=""":WEND 

1040 PRINT: LIST:END 


The program registers that a ‘division by zero’ error has 
occurred but does not let that stop the program. However, the 
syntax error at line 5@ is picked up and the program lists itself 
after a keypress. 

A program break caused by the ESC key can be trapped ina 
similar way using the ON BREAK GOSUB command. The 
following lines cause the program to restart if an attempt is 
made to break into it using the ESC key. 
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10 ON BREAK GOSUB 1000 

20 WHILE pigsfly=@:PRINT"hello "; 
30 WEND 

40 : 

1000 REM *xx*x Break handler «xxx 

1010 PRINT:PRINT"Don't press my ESC 
key, please!" 

1020 RUN 


The ON BREAK GOSUB trap can be disabled by ON BREAK 
STOP, which restores the normal function of the ESC key. 
Trapping the ESC key break should be used with caution. If 
used as above, the only way to break out is to reset the 
machine and lose your program! It is therefore a good idea to 
save your program first. 


‘Stranded’ — completing the game 


In this, the final section of ‘Stranded’, we look at the remainder 
of the routines that go to make up the game, including routines 
to check for an end-of-game situation and a routine to take the 
game to higher levels of difficulty, should the player success- 
fully complete a section. We also look at the creation of a more 
professional-looking title screen. 


Back up the ladders 


The game is now at the stage where the player can negotiate 
the cliff-walk sections and ladders to reach the jetty and row 
out to the men stranded on the pillars. One of these men can be 
rescued and brought back to the jetty. The next stage is, 
therefore, to allow the player to go back up the ladders with the 
rescued man (signified by the player figure becoming red in 
colour) to deliver him to the start point at the top of the cliff. If 
the player manages to carry the man all the way to the top of 
the cliff then a substantial bonus is awarded. 

We can obviously use the same routines for going up the 
cliff-face as we used to come down; we merely need to 
construct a WHILE... .WEND loop, as before within the main 
program loop: 
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i636 REM *#** back up ladders etc ###* 
1646 WHILE ¢charx<¢>1 QR charry<>3) AND fa 
liflaq=@ AND endflaqg=@ 

1654 IF joyflag=1 THEN GOSUB 3968 ELSE G 
OSUE &464 

1666 WEND 


Notice that there are three conditions that can terminate this 
loop. The first of these is if charx =1l and chary =3 (don’t 
be fooled by the OR in the WHILE statement: remember that 
those are conditions that, while true, will not terminate the 
loop!). This position is the home position at the top of the cliff 
and signifies that the player figure has reached the top of the 
cliff. The second possible condition that terminates the loop is 
for fall flag to be 1. Obviously the player can fall off the 
cliff-walk on the way up as well as on the way down; 
fallflag is set by the ‘check under figure’ routine 
mentioned earlier in Chapter 6. The third way that the loop can 
end is if endf lag is set to 1. More of this later. The first two 
conditions can be tested for once the loop has finished by 
these two lines: 


{4676 IF fallflag=i1 THEN GOSUB 36@4:GQ0TO 
1736:REM end loop 

1766 IF carryflag=1 THEN GOSUE 4460@:REM 
one home 


If fall flag is set the flag reset routine at line 3000 is 
called and a jump is made to the WEND at line 1730. Unless 
the number of lives left to the player, numbermen, is 0 the 
main program loop will then restart. If the player did not fall 
then we assume that the reason that the ‘back up the ladders’ 
controlling loop was terminated was because the player figure 
reached the top of the cliff. To avoid unscrupulous players 
gaining a bonus without having rescued a man, we test 
carryflag. This flag will be set if the player carries a 
rescued man. The subroutine that deals with the ‘got one 
home’ condition, called by line 1709, is: 


46GG REM #*2** gat one home ®#** 
4616 incscore=26080:GOSUB 7760:REM score 
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4626 menhome=menhometi:GOSUB 7966:REM so 
und x 

4636 PEN red:LOCATE 14,2:PRINT LEFT#<men 
$ ,menhome > 

4646 RETURN 


This routine gives the player a bonus of 2000 points, 
increments the number of men home by one and shows this 
visually by displaying the number of men rescued and 
brought to the top of the cliff in red standing-man characters. 
The final task within the main program loop is to perform 
the rest routines at lines 2900 and 3000, given earlier in the 
book, and check to see if there is an end-of-game situation. 


171@ GOSUB 2966:GOSUB 3646:REM reset 
1726 DI:GOSUB 326@:EI:REM no more pillar 
men? 


Checking for an end-of-game situation 


The game must either end or go on to the next level if all seven 
men on the pillars have either been rescued or drowned. There 
are several rules in the game that deal with this situation. If 
more than three men out of the seven are drowned then the 
game ends. If all seven men are successfully rescued then a 
5000 bonus is added to the player’s score. In any case other 
than three men drowning the game will go to the next level. 
The routine that checks for these situations is: 


3266 REM **#** any more pillarmen **** 
3216 savcount=@:drowncount=6 

3226 FOR pilin=1i TO 7? 

323@ savcount=savcount+safeflagtpilln)> 
3244 drowncount=drowncountt+drownflagtpil 
Ind 

3256 NEXT pilin 

3266 IF drowncount>3 THEN endflag=1:RETU 
RN:REM end qame 

3276 IF savcount=? THEN incscore=5808:G0 
SUB 77@6:REM bonus 

3288 mancount=savcount+drowncount 
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3296 IF mancount<7 OR mancol=red THEN RE 
TURN:REM same level 

3366 : 

331@ REM ***#* next level xxx 

3328 GOSUB 7306:REM disable timers 

3336 REM ** reset flags ** 

3340 FOR pilln=1 TO 7 

3356 safeflag(pilln2=@:drownflag(pillno= 
@ 

3366 NEXT pilln 

3376 REM ** reset pillars ** 

3386 REM ** alter interrupts ** 

3396 CLS #2:GOSUB 24@6:REM redraw sea sc 


3466 menhome=8:LOCATE 14,2:PRINT SPACES<¢ 


3491@ moveint=moveint-2 

342@ riseint=riseint-5S@ 

3493@ IF moveint<4 THEN moveint=12:risein 
t=300:REM reset to initial values 

3446 GOSUB 7466:REM enable timers 

345@ RETURN 


Creating a new level in the game consists of the following 
steps that can be traced in the routine above: 


1) Reset the drownf lag() and safeflag() arrays. 

2) Randomly redraw the pillars and the rest of the sea scene. 

3) Zero the menhome counter. 

4) Make the panel-moving and water-level-rising interrupt 
intervals shorter. 


If you look at the main program loop you will see that each of 
its subloops can be terminated by setting endf lag to1. Why 
is this terminating condition included in each subloop if the 
only routine that can set endf lag is not called until line 
1720? The answer lies in the fact that getting a man home (or 
falling off the cliff-walk in the attempt) is only one of the times 
when we need to check to see if we have an end-of-game or 
next level condition. The other time we need to call the routine 
above is when one of the pillar men is drowned. This can 
obviously only occur when the water level is raised. We 
should, therefore, call the above routine from the interrupt that 
causes the water level to rise. Insert this line into that routine: 
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6236 GOSUB 3200:REM more pillarman ? 


Perhaps you can see why we need to be able to terminate 
any of the subloops within the main loop when endf Lag is 
set: because endf lag can be set at any time in the main 
loop, whenever the ‘raise water level’ routine interrupts. 

We now need to insert lines beneath each subloop so that if 
end f lag is set we can jump straight to the main loop WEND, 
and fall through to an end-of-game routine beyond it. Insert 
these lines to do this: 


151@ IF endflag=1 THEN 173@:REM end loop 
1596 IF endflag=1 THEN 1736:REM end loop 
1676 IF endflag=1 THEN 173@:REM end loop 


The end-of-game routine is called by line 1740: 


1746 GOSUB 81@6:REM end routine 


and the actual routine starts at line 8100: 


S1GG REM *#** end routine **** 

8116 GOSUB 7360:REM disable timers 

8126 INK 14,3,24 

813@ CLS:PEN 14:REM flash 

8146 LOCATE 6,8:PRINT"Game Qver" 

8156 LOCATE 6,9:PRINT"=========" 

8166 IF Sconce hiacores THEN hiscore#=sc 
ores 

6176 PEN black:LOCATE 1,12:PRINT"Hi Scor 
e:" 

$18@ PEN red:LOCATE 13,12:PRINT hiscore? 


8196 PEN black:LOCATE 1,14:PRINT"Your Sc 
ore:" 

8266 PEN red:LOCATE 13,14:PRINT score? 
8216 PEN green:LOCATE 2,18:PRINT"Another 
Game (y/n)>" 

8211 FOR p=é666 TO 1680 STEP -16 

8212 SOUND 1,p,2,5 

8213 NEXT p 

S226 anst="" 
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8234 WHILE ans#<>"¥" AND ans#<>"n" 

8246 anst=INKEYS 

8256 WEND 

82646 score=@:score#="":REM zero score 
82786 moveint=1Z2:riseint=354:REM reset in 
t timers 

8286 GOSUB 319@:REM reset flags 

8274 IF anst="n" THEN endflaq=1:CLS 

8308 RETURN 


The routine prints an end-of-game message and the highest 
score since the program was first run. If the new score is more 
than the previous highest then the new score will be adopted 
as the highest score. The player is then asked if another game 
is wanted. If the answer is y then the score is zeroed, the 
interrupt intervals are reset to their original values and the 
safeflag() and drownflag() arrays, together with 
lad, panel and endf lag are reset to zero. If the answer is 
n then endf lag is reset to 1. In either case a return to the 
main program is made. The flags are reset in their own routine 
at line 3100: 


31iGG REM **** end of qame flag reset *** 
¥ 

311@ FOR i=1 TO ? 

3126 safeflag(i=@:drownflagt i»=8 

3136 NEXT i 

314@ lad=@:panel=G:endfl ag=4 

315@ RETURN 


To deal with the possibility of a repeated game (signalled by 
endf lag =0) we must finally enclose the set up routines and 
the main program loop within one further WHILE. ..WEND 
loop that terminates when endf lag remains at 1, on return 
from the end-of-game routine above: 


136@ WHILE endflag=@:REM game replay lcop 
175@ WEND:END 


We can now see the complete program structure. The entire 
game loop looks like this: 
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127G REM XXXRHHHEKRKRHHKEKKKEE 
1286 REM * set up routines * 
129G REM XXXRRRRHRRKKERERKERE 
1366 WHILE endflag=@:REM game replay loo 


p 

1316 numbermen=4:menhome=@ 

1326 GOSUB 266@:REM set up screen 

1336 GOSUB 286@:REM foreqround etc 

1346 GOSUB 294@:GOSUB 306@:REM reset 
1356 : 

136G REM xX XXHHXKHREHERREREEX 

137@ REM * main action loop * 

138G REM KEXXHKHKRHHKEKERKKHES 

1396 : 

1466 WHILE numbermen>@ AND endflag=@ 
1410 LOCATE charx,chary:PRINT standmant 
1426 : 

143@ REM *#**® negotiate ladders etc *x** 
144@ GOSUB 74@@:REM enable timers 

1456 : 

146@ WHILE boatflag=@ AND fallflag=@ AND 
endfl ag=@ 

1476 IF joyflag=1 THEN GOSUB 3966 ELSE G 
OSUB 8408 

1486 WEND 

149@ : 

1566 IF fallflag=1 THEN GOSUB 3666:GOTO 
1736:REM end loop 

1516 IF endflag=1 THEN 1736:REM end laop 


1526 GOSUB 510@:REM down ganqway 

1534 : 

154@ REM **#**% steer boat *x*x* 

1558 : 

1566 WHILE fetchflag=@ AND endflag=@ 
15786 IF joyflag=1i1 THEN GOSUB 550@ ELSE G 
OSUB $546 

1586 WEND 

1596 IF endflag=i THEN 1736:REM end loop 


1660 : 

1616 GOSUB 353@@:REM back up ganqway 
1626 : 

163@ REM **** back up ladders etc **** 
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164@ WHILE ¢Ccharx<¢>1 OR chary<>3> AND fa 
114lag=@ AND endflag=6 

165@ IF joyflag=1 THEN GOSUB 396@ ELSE G 
OSUB 8466 

1666 WEND 

1676 IF endflag=1 THEN 1730:REM end loop 


168@ : 

1696 IF fallflag=1 THEN GOSUB 36060:GOTO 
1736:REM end loop 

1766 IF carryflag=1 THEN GOSUB 46@@:REM 
one home 

1716 GOSUB 2906:GOSUB 3666:REM reset 
1726 DI:GOSUB 3206:EI:REM no more pillar 
men? 

173@ WEND 

174@ GOSUB 814@:REM end routine 

1756 WEND:END 


A proper title screen 


Our program should now be in full working order, but, as a 
finishing touch, this routine uses some of the graphics 
techniques covered in the book to produce an attractive title 
screen. Delete lines 1250-1260 and type in these lines to 
add the new screen display: 


125@ GOSUB 860@:REM title screen 

8606 REM **** title board **** 

8616 PAPER @:CLS 

8620 FOR x=6 TO 8 STEP 4 

8636 MOVE 34,256:MOVER x,x:GOSUB 871@:RE 
M plot STRANDED 

8646 NEXT x 

8656 GOSUB 930@:REM display choices 
8666 RETURN 

8670 : 

876@ REM **** draw STRANDED **** 

871@ REM ** letter s ** 

8726 DRAWR G@,-16,3 

873@ DRAWR 356,4:DRAWR @,46:DRAWR -48,16 
8746 DRAWR @,14:DRAWR 44@,4:DRAWR 6,-8 
875@ DRAWR 8,0:DRAWR @,16:DRAWR -56,6 
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8766 
4 

6776 
$738 
S776 
8866 
S814 
8826 
S836 
83846 
e856 
8866 
é 

8876 
8888 
8876 
8766 
S914 
8?26 
S934 


8746 
a9sG 
8966 
8976 
8988 


BPob 
7666 
716 
9826 
2 
7636 
7646 
PaSG 
7866 
-14 
7676 
7O86 
Pa?e 
-12 
7168 
7116 
7126 


DRAWR 


DRAWR 


6,-32:DRAWR 46,-16:DRAWR @,-2 


-46,4:DRAWR @,&:DRAWR -S,6 


REM ** letter t ¥# 


MOVER 
DRAWR 
DRAWR 
DRAWR 
DRAWR 


F&,-16:DRAWR @,72 
-16,4:DRAWR @,-8:DRAWR -8,@ 
@,16:DRAWR 56,@:DRAWR @,-16 
-8,@4:DRAWR @,8:DRAWR -16,6 
6,-72:DRAWR -&,6 


REM ** letter re #*# 


MOVER 
DRAWR 


DRAWR 
DRAWR 
DRAWR 
MOVER 
DRAWR 


48,4:DRAWR 6,36 
56,@:DRAWR @,-32:DRAWR -46,-1 


40,-16:DRAWR @,-16:DRAWR -8,@ 
@,8:DRAWR -40,16:DRAWR @,-24 
-8,6 

8,49:DRAWR @,32:DRAWR 48,6 
@,-16:DRAWR -4@,-16 


REM ** letter a ## 


MOVER 


DRAWR 
DRAWR 
DRAWR 
MOVER 
DRAWR 


64,-4@:DRAWR @,52:DRAWR 26,26 


28,-28:DRAWR @,-52:DRAWR -8,@ 
@,32:DRAWR -40,0:DRAWR @,-32 
-8,8 

§,40:DRAWR @,S:DRAWR 26,26 
20,-20:DRAWR @,-8:DRAWR -40,8 


REM *#® letter n *% 


MOVER 
DRAWR 
DRAWR 


DRAWR 


$4,-40:DRAWR @,80:DRAWR 16,4 
32,-72:DRAWR @,72:DRAWR 8,6 
@,-80:DRAWR -16,8:DRAWR -32,7 


@,-72:DRAWR -&,6 


REM **** letter d #**# 


MOVER 
DRAWR 


DRAWR 
MOVER 
DRAWR 


DRAWR 


72,6:DRAWR 6,86:DRAWR 46,6 
16,-16:DRAWR @,-48:DRAWR -16, 


-40 ,8 
@,8:DRAWR &@,64:DRAWR 28,6 
12,-12:DRAWR @,-4@:DRAWR -12, 


-28 ,@ 


REM **® letter e© **¥ 


MOVER 


64,-8:DRAWR @,8@:DRAWR 56,4 
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9136 DRAWR @,-16:DRAWR -8,@:DRAWR 4,& 
7146 DRAWR -46,8:DRAWR @,-32:DRAWR 24,4 
9156 DRAWR &@,8:DRAWR &,6:DRAWR @,-24 
7166 DRAWR -8,@:DRAWR &@,8:DRAWR -24,6:DR 
AWR @,-24 

71 7@ DRAWR 46,6:DRAWR @,8:DRAWR &,G@ 

9186 DRAWR @,-16:DRAWR -56,4 

Pi9G@ REM **® letter d ** 

260 MOVER 72,@:DRAWR @,8@:DRAWR 46,6 
921@ DRAWR 16,-14:DRAWR @,-48&:DRAWR -164, 
-16 

9226 DRAWR —-46,6 

$230 MOVER 8,8:DRAWR 6@,64:DRAWR 25,4 
9246 DRAWR 12,-12:DRAWR @,-4@:DRAWR -12, 
-12 

9250 DRAWR -28,6 

9268 RETURN 

9276 : 

936G REM **** diplay choices **** 

9310 messt=CHR$(1649+" 1985 by S.W. Colw 
ill"+SPACE$¢( 8) 

9324 messt=messtt+messté 

9336 PEN 7:LOCATE &,17:PRINT"PRESS" 

93446 LOCATE 7,26:PRINT"CONTROL" 

935@ PEN 12:LOCATE 3,18:PRINT"J for joys 
tick" 

936@ LOCATE 4,1%:PRINT"c for cursor" 
937@ anst=""sc=1 

9386 WHILE ans#<>"ij" AND ans#<>"c" 

9390 INK 3,c:REM change STRANDED ink 
746@ SOUND 1,INTCRND(1)#10@6),5,5 

941@ LOCATE 1,13:PRINT MIDS <mess#,.c,28) 
9426 c=cti:IF c>}36@ THEN c=1 

943@ FOR i=1 TO S@:NEXT:REM delay 

7446 anst=INKEYS 

945@ WEND 

7466 INK 3,6:REM reset ink colour 

9470 IF anst="j" THEN joryflag=1 ELSE joy 
#laq=6 

9486 RETURN 


The routine at line 870@ draws STRANDED in high- 
resolution graphics, using relative plotting. This routine is 
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called three times, with slightly different starting points, to 
produce a three-dimensional effect. The ‘display choices’ 
routine at line 9300 repeatedly changes the ink that was used 
to create the STRANDED lettering whilst scrolling a copyright 
message across the screen and looking for the player to press j 
or € to select joystick or cursor control. 


Program structure 


‘Stranded’ is now completed and we can see the final structure 
of the program. Comparing this diagram with the one given at 
the end of Chapter 7, the addition of the final 
WHILE.~..WEND loop to the program changes the structure 
considerably. We can see that the only routines that lie outside 
this loop are the initialisation routine and the title-screen 
routine. As this loop allows the player to opt for a further 
game, all other routines lie within it. So within the main loop 
we have routines to set up the screen and foreground displays, 
reset the various flags and variables, an inner 
WHILE...WEND loop to control the game action and an 
end-of-game routine. The action routines have been discussed 
in earlier chapters but a flag reset routine and a routine to 
check on the status of the pillar men are added to the end of the 
action loop. 
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Figure 8.1 


Afterword 


In this book we have looked at many of the techniques needed 
to write graphics games in BASIC on the Amstrad CPC range. 
The approach throughout has been to introduce the Amstrad 
CPC range’s facilities by way of practical demonstration and, if 
you have worked your way steadily through the sections at the 
end of each chapter, you should have a completed version of 
the game ‘Stranded’ to play on your Amstrad CPC range. You 
will also find a complete listing of the game in Appendix A. 
Little has been said of non-graphics-based games such as 
adventures or strategy games. These areas would take a further 
book to cover. However, it is hoped that the programming 
techniques covered in this book will be useful in many other 
areas of programming. Amstrad offer an excellent dialect of 
BASIC which, combined with well thought out firmware and 
hardware, makes their computers extremely good value for 
money and easy to use. 
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Appendix A 


The ‘Stranded’ program 


{GGG REM XHKKRKKEKEKRKEEKKRKKEKEKREKEE 
1018 REM XX HERKKKKKKEKEERKKKEKKKKEE 


14626 REM ** *¥* 
1636 REM ** Stranded! ** 
1046 REM x** EF 
19656 REM ** (c)1985 S.W. Colwill ** 
166@ REM ¥* x 


1G7G REM KXXHEKKE KER KRR KEKE KRRKERES 

1GSQ REM KX XKKRKRKKKRKKERKERKRRKERE 

1690 : 

L1GG REM KEK KKKKEKKHKRESKRRES 

1116 REM * dimension arrays * 

112Q REM HX XRHKRKRHERRRKEKKEKE 

1136 : 

114@ REM **® dimension panel arrays ** 
1156 np=6:REM set number of panels 

116@ DIM scxtnp),scy(np) ,acpinp),pcltnp? 


1178 DIM plf{np),agptnp),stxtnp) ,stytnp? 
1186 DIM ex (np) ,dx(np),.c np? ,mc (np) 

11°@ REM ** dimension ladder arrays ** 
1266 DIM 1x¢3),1¥€39,11¢63),QIx¢3) ,qly¢3) 
»Q11¢3)9,deck(3) 

1214 REM ** dimension pillar arrays ** 
1226 DIM pillcx¢?), nillch¢7) pillarx¢?), 
pilarh¢?)> 

1236 DIM drownflag¢( 7) ,safeflagqt?7) ,maxlev 
C7) 

124@ GOSUB 186@:REM initialise 

125@ GOSUB S6860:REM title screen 

1266 

1276 REM KXXKXRKRKEKRE KEK RERE 

1266 REM * set up routines * 

129G REM KXKHRH KHER RKEKEK EKER 

1366 WHILE endflag=@:REM qame replay loop 
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1316 numbermen=4:menhome=6 

1326 GOSUB 2666:REM set up screen 

1336 GOSUB 2866:REM foreground etc 

1346 GOSUB 2966:GOSUB 3666:REM reset 
1356 : 

1366 REM XXRXRKEKEREEKEKREERE 

137@ REM * main action loop * 

138G REM KHXHHRHKHRKEKKERKREES 

1396 : 

1466 WHILE numbermen>@ AND endflag=6 
1410 LOCATE charx,chary:PRINT standmans 
1426 : 

143G REM **** negotiate ladders etc *x## 
1440 GOSUB 740@:REM enable timers 

1456 : 

1466 WHILE boatflag=@ AND falliflag=@ AND 
endflag=@ 

1476 IF. joyflag=1 THEN GOSUB 3766 ELSE G 
OSUB 8408 

1486 WEND 

1496 : 

1566 IF fallflag=1 THEN GOSUB 2066:GQTO 
1736:REM end loop 

1516 IF endflag=1 THEN 1736:REM end laop 


1526 GOSUB 3510@:REM down ganqway 

1536 : 

154@ REM **** steer boat **** 

1550 : 

1566 WHILE fetchflag=@ AND endflag=6 
1570 IF joyflag=i THEN GOSUB 5506 ELSE G 
OSUB 8506 

158@ WEND 

1596 IF endflag=i THEN 173@:REM end Iocop 


166@ : 

1616 GOSUB 5S36@:REM back up ganqway 

1626 : 

163@ REM **** back up ladders etc **x* 
1646 WHILE ¢charx<>1 OR chary<>3) AND fa 
ll flag=6 AND endtiag=6 

1650 IF joyflag=1 THEN GOSUB 3964 ELSE G 
OSUB 8466 

1660 WEND 


1676 


1686 
1676 


1736: 


1766 
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IF endflaqg=1 THEN 173@:REM end loaop 


IF fallflaqg=i1 THEN GOSUB 3666:GOTO 
REM end loop 
IF carryflag=1 THEN GOSUB 4666:REM 


one home 


1716 
1726 


GOSUB 29660:GOSUB 3666:REM reset 
DI:GOSUB 3266:EI:REM no more pillar 


men? 


1730 
1746 
1756 
1735 
1768 
1776 
1786 
1776 
1866 
1816 
1826 
1830 
1846 


WEND 
GOSUB &1@@:REM end routine 
WEND : END 


REM XK KKK KER HHSE 

REM * subroutines ¥* 

REM KX KHHE RRR HERES 

REM **** initialisation **** 

MODE 6 

REM **® set interval timer values ** 
moveint=12:riseint=34@ 

REM ** define strings *# 
deck#=STRING#¢ 2@ , CHR#¢ 267) > 

bar #=CHR#( 214) 

zeros=STRING$(5,"6") 

numbermen=4 :mens=STRING$¢( 7, CHRE( 248 


REM ** define windows ** 

WINDOW 1,20,1,25 

WINDOW #2,1,26,18,25 

WINDOW #3,19,19,18,23 

REM ** user defined chars ¥* 
SYMBOL AFTER 2486 

REM SYMBOL 255,14,8,24,36,16,16,16, 


SYMBOL 254,56,56,19,252,144,48,48,1 
SYMBOL 253,56,56,18,252,144,16,16,2 


SYMBOL 245,0,0,6,@,255,127,62,62 
SYMBOL 247,28, 28,72,63,9,20,35,97 
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2626 
2636 
2644 
2658 
2676 
2886 
2498 
2166 
2116 
2126 
2136 


SYMBOL 246,28,28,72,63,7,8,9,24 
transon$=CHRS$ (22> +CHRE¢ 1) 

transof f#$=CHRS( 229 +CHRS( GO) 
standman#=CHRS$¢ 248) :boat$=CHRE( 245) 
exp] ade$=CHR#( 238) 


REM *# panel data ¥# 

FOR n=1 TO 6 

READ pcl(n),qcptn?,scxtn),scrtn) 
pl(nd=32¥pcl (nd rqpt(nd=32¥qQcptn)-1 
stx(nd=BS2eC scx Cnd-Loirsty(nd=399-1 6% 


scytn) 


2146 
2156 
2166 
2176 
2186 
2196 
2266 
2218 
2226 


ex€nd=stx(nodt+aptn)d 
mce(nd=gpt(n>d-pl tnd 
dx (nd=32 


REM ** joystick directions *# 
left=4:right=8:centre=6:fire=16 
REM #* ladder data #** 

FOR i=1 TO 3 

READ Ix¢Cid,lyCid,li¢id 

QI xC i d=S2RCT xX CI I-L sql y i =S9P-1 686 


TyCid-19-8 


2288 
2296 
2368 
2316 
2326 
2336 
2346 
2466 
2416 
24926 


¥Y 
2436 
24468 
+1 
2456 
2468 
2476 


QlICid=C1T1 Cid +19*16 
NEXT i 


REM **® ladder data ¥** 
DATA 18,%,5,2,15,6,17,18,3 
RETURN 


REM ***%* set up pillars *##* 
RANDOMIZE TIME 
cc=l:ipillcy=23:pillary=465-16%pillc 


FOR n=1 TQ 7 
pillextno=ccerpillch¢(nd=INTCRND( 1) *4 


pillarx(nd=32e*pillcxtnd-16 
pillarh¢nd.=1é6epillchtn2-8 
maxleyv(nd=pillarytpillarh¢no+16 
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24986 cc=cct2 

249@ NEXT n 

2546 level=pillary 

2oia@ GOSUB 756@:REM draw walkway 

2524 PAPER #3,mauve:CLS #3:PEN #3,whi te 


Z536 GOSUB 7H86:REM draw pillars 

2548 LOCATE #2,18,7:PEN #2,qQreen:PRINT#2 
boats 

2558 RETURN 

2566 : 

2606 REM **¥** set up screen *x##* 

261@ BORDER 6 

2626 whiteink=Z2é:blueink=1:redink=64 

2638 sky=14:black=S:water=6:red=3:whi te= 
4 

2646 green=12:blue=6:pink=llipastaqreen=] 
3S:mauve=14 

2695 deck(lod=red:deck(2)=qreen:deck(33=b 
Tue 

2Z65@ INK 18,14:INK 3,6:INK 4,26:INK 5,@: 
INK 14,5 

2664 INK 12,16:INK 6,2:INK 11,16:INK 13, 


2676 PAPER sky:CLS:PAPER #2,water:CLS #2 
:PEN #2,white 

2686 LOCATE 1,4:FEN deckti) 

2670 PRINT LEFTS¢( deck#,5) ;SPACES¢ 3) sLEFT 
$C deck#,5); 

2706 PRINT SPACE$(3) sLEFTS#({ deck#,4) 

271@ LOCATE 1,9%:PEN deckt2) 

2726 PRINT LEFT#¢deck#,4) ;SPACE#( 2) ;LEFT 
$PCdeck#,4); 

2734 PRINT SPACE#¢( 3) sLEFTS( deck$,5) 

2746 LOCATE 1,15:PEN decks) 

275@ PRINT LEFT#‘ deck#,6) ;SPACE#( 3) sLEFT 
$C deck$,3) 5 

276@ PRINT SPACES$( 2) sLEFT#( deck, 4) 

2776 RETURN 

2786 : 

2666 REM **#* draw foreqround etc ##x* 
2826 GOSUB 2400:REM draw sea scene 

2836 GOSUB 64@6:REM draw ladders 

2846 LOCATE 8,1:PRINT"Score:" 
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2854 
re 

2866 
2878 
2706 
2918 
ry=3 
2928 
2938 


meni 


2746 
2758 


incscore=6:GOSUB 776@:REM print sco 


RETURN 
REM **** reset routine **** 
mancol=white:PEN mancol :charx=1:cha 


REM ** print number men left ** 
IF fallflag=1 THEN numbermen=number 


IF numbermen<1 THEN RETURN 
LOCATE 1,1:PRINT LEFT#(men#,numberm 


en-1);SPACES¢( 4-numbermen) 


2°66 
2976 
3606 
3616 
36426 
3636 
3446 
3166 
* 
Sila 
3126 
3136 
3146 
3156 
3166 
3206 
3216 
3226 
3234 
3246 
Ind 
3256 
3268 


RETURN 

REM **** reset flaqs *#** 
boatflag=O:fallflag=@:resetflaqg=@ 
fetchflag=6:carryflagq=6 

RETURN 


REM #*** end of qame flaq reset *## 


FOR i=1 TO 7 
safeflag( i =@:drownflag’ id= 

NEXT i 

lad=@ :panel=@:endfl ag=@ 

RETURN 

REM **** any more pillarmen ##** 
savcount=@:drowncount=8 

FOR pilln=i TO 7? 
savcount=savcountt+safeflag(pilln) 
drowncount=drowncountt+drownflag(pil 


NEXT pilin 
IF drowncount>3 THEN endflag=1:RETU 


RN:REM end qame 


3276 


IF savcount=7 THEN incscore=5608:G60 


SUB 776@:REM bonus 


3286 
3296 


TURN: 


3366 
33168 


mancount=savcount+drowncount 
IF mancount<? QR mancol=red THEN RE 
REM same level 


REM ###* next level *x## 
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GOSUB 7306:REM disable timers 

REM ** reset flags ** 

FOR pilln=1 TO 7 
safeflagq¢pilln)=6:drownflag(pillnd= 


NEXT pilin 

REM ** reset pillars *# 

REM **® alter interrupts ** 

CLS #2:GOSUB 24@@:REM redraw sea sc 


menhome=@:LOCATE 14,2:PRINT SPACES¢ 
moveint=moveint-2 


riseint=riseint-5@ 
IF moveint<4 THEN moveint=i12:risein 


t=3060:REM reset to initial values 


3446 GOSUB 746@6:REM enable timers 

3456 RETURN 

3466 : 

3566 REM **** moving panels **** 

351@ REM ** disable and re-enable timers 
¥*¥ 

3526 IF resetflag=1 THEN GOSUB 736@:GQSU 
B 7406 

3536 n=nti:IF n>é THEN n=1 

3546 GOSUB 3606 

3556 RETURN 

3566 : 

3666 REM ***®* move panel nm *#*# 

36190 DI 

3626 IF panel=n THEN GOSUB 3866 

3636 MOVE stx(n),stytn) 

3646 cCnd=cCndI+dxtn?) 

3656 IF c¢n>)>=mcetn)> THEN dxtnd=-dxtn) sce 
no=metnd 

3666 IF c{n><=6 THEN dx (nd=-dx(ndrctnd=6 
3676 DRAWR c(n),@,sky 

3686 DRAWR pltn).@,black 

3696 DRAW ex (nd ,sty tn), sky 

3766 El 

3716 RETURN 

3726 : 

386G@ REM **#* move man on panel x##* 
3816 LOCATE charx,chary:PRINT" " 
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3826 


charx=charxtdx(nd/32:1IF charx<i THE 


N charx=1 


3836 
3848 
3856 
3766 
3916 
OSUB 
3926 


LOCATE charx,chary:PRINT standman? 
RETURN 

REM *#*®* scan joystick *x** 

IF JOY¢@>)=left THEN DI:GOSUB 4066:G 
4366:EI 

IF JOY¢@.=right THEN DI:GOSUB 4106: 


GOSUB 43@6:EI 


3930 


IF JOY(@)=centre AND ladflag=@ THEN 


DI:GOSUB 426@:GOSUB 4366:EI 


3948 
3956 
4060 
4616 


e 
4026 
4836 
=1 


4646 


RETURN 


REM ****% move left *x#* 
char tog=1-chartog:REM character typ 


LOCATE charx,chary:PRINT" " 
charx=charx-1:IF charx<l THEN charx 


LOCATE charx,chary:PRINT CHR#¢(246+c 


har tog) 


4636 
366 

4666 
4076 
4686 
4166 
4118 


e 
4124 
4136 
x=26 
4146 


IF ladflag=1 THEN ladflagq=@:GOSUB 6 


GOSUB 786@:REM sound fx 
RETURN 


REM **®*#* move right **##* 
char tog=1-chartog:REM character typ 


LOCATE charx,chary:PRINT" " 
charx=charxt+1:IF charx>2@ THEN char 


LOCATE charx,chary:PRINT CHR#(253+c 


har tog) 


4136 
368 

9166 
4170 
4186 
4266 
4216 
4226 
42368 


IF ladflag=1 THEN ladflag=@:GOSUB 6 


GOSUB 786@:REM sound fx 
RETURN 


REM #*%* standing still **#* 
LOCATE charx,charysPRINT standmant 
RETURN 


4366 
4316 
4326 
4336 
4346 
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REM ****® check under fiqure x*#*% 
GOSUB 67@@:REM convert coords 
t=TESTC graphx,graphy> 

IF t=sky THEN fallflag=1:GOSUB 4446 


?RETURN 


4356 


IF t=black THEN GOSUB 47@@:RETURN E 


LSE panel=6 


4366 
4376 
4466 
4416 
t 

44260 
4436 
4446 
4456 
t 

4466 
4470 
4486 
4498 
4566 
4518 
4526 
4336 
4354@ 
4666 
4618 
4626 


RETURN 
REM **#* fall ***¥*¥ 
chary=chary+1:GOSUB 676@:REM conver 


DI 

WHILE TEST¢qraphx ,qraphy)=sky 
LOCATE charx,chary-1:PRINT" " 
chary=chary+1:GQSUB 67@0:REM conver 


LOCATE charx,chary:PRINT standmant 
GOSUB 780@:REM sound fx 

WEND 

LOCATE charx,chary-1:PRINT" " 
GOSUB 68@6:REM explode 

GOSUB 290@:REM rest coords etc 

EI 

RETURN 

REM *#** qot one home *x*** 
incscore=2066:GOSUB 77660:REM score 
menhome=menhomet+1:GOSUB 796@:REM sa 


und x 


4636 


PEN red:LOCATE 14,2:PRINT LEFTS(men 


$ ,menhome) 


4644 
44656 
4706 
4716 
4726 
4738 

AND 
4746 
4736 
7706 
4766 


RETURN 


REM *#**® on a panel/ladder ? *### 
IF panel<>@ THEN RETURN 

FOR i=1 TQ np 

IF qraphy=sty¢i2 AND graphx>=stx¢i) 
qgraphx<=ex Cio THEN panel=i:i=np 
NEXT i 

IF panel<>6 THEN incscore=56:GOSUB 


REM **® test for ladder *# 
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4776 IF ladflag=i THEN RETURN 

9736 lad=6 

9796 FOR i=1 TO 3 

48@6 IF charx=1x¢€i> THEN lad=i:GOSUB 496 
8:i1=3 

981@ NEXT i 

48246 RETURN 

4836 : 

4966 REM **** up or down a ladder ***# 
4916 IF chary=ly(lad)-1 THEN dy=-1 

4920 IF chary=ly¢lad)-11¢lad)-1 THEN dy= 
1 

493@ FOR y=1 TO 11¢1lad) 

4946 ladchar=1-ladchar 

4958 LOCATE charx,chary:PRINT" " 

4966 GOSUB 6560:REM redraw ladder 

4976 chary=charyt+dy 

4986 PRINT transon? 

4996 LOCATE charx,chary:PRINT CHRS(256+1 
adchar) 

5666 PRINT transoff¢ 

5616 FOR delay=1 TO 1@@:NEXT 

5626 GOSUB 7866:REM sound fx 

5836 NEXT y 

5646 ladflag=i:incscore=160:GOSUB 7706:R 
EM inc score 

5056 IF lad=3 AND boatflag=@ THEN boatfl 
ag=1 

5660 resetflag=1:REM reset timers 

5678 RETURN 

S@se@ : 

2166 REM ****® down ganquay *#*# 

Sii@ LOCATE charx,chary:PRINT" " 

S126 GOSUB 656@:REM redraw ladder 

5136 charx=1:PEN #3,mancol:REM change to 
stream 3 

5146 FOR chary=2 TO 5 

3156 tog=i-tog 

5146@ LOCATE #3,charx,chary:PRINT#3, CHRS 
(2356+ tog? 

5176 FOR i=! TO 16@:NEXT:REM delay 

5186 LOCATE #3,charx,chary:PRINT#3," " 
519@ GOSUB 786@:REM sound fx 

326@ NEXT chary 
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521@ REM **** onto boat **x* 

9226 charx=18:chary=7:REM change to stre 
am 2 

53236 manink=whiteink:GOSUB 66@6:REM prin 
t man/boat 

329@ RETURN 

3256 : 

536@ REM **** back up ganquay **** 

5310 LOCATE #2,charx,chary:PEN #2,green: 
PRINT#Z, boat 

53320 charx=1:PEN #3,mancol:REM change to 
stream 3 

533@ FOR chary=5 TO 2 STEP -1 

534@ tog=i-tog 

535@ LOCATE #3,charx,chary:PRINT#3, CHR 
€258+ tag) 

5366 FOR i=1 TO 1@@:NEXT:REM delay 

5376 LOCATE #3,charx,chary:PRINT#3," " 
5386 GOSUB 78@6:REM sound fx 

2396 NEXT chary 

340@ charx=19:chary=17:REM change to str 
em 1} 

3416 PEN mancol :LOCATE charx,chary:PRINT 
standmant 

3426 lad=3:DI:GOSUB 4906:EI:REM up ladde 
r 

3436 RETURN 

3446 : 

336@ REM #*** scan boat jorstick **#* 
S351@ DI 

9526 IF JOY(@)=left THEN GOSUB 5666 

3938 IF JOY(@2=right THEN GOSUB 357086 
3549@ IF JOY(@>.=fire THEN GOSUB 5846 

5998 EI 

3366 RETURN 

5576 : 

3666 REM **** move boat left **¥** 

361@ LOCATE #2,charx,chary:PRINT#2," " 
3626 charx=charx-1:IF charx<i THEN charx 

=1 

3636 GOSUB 6@66:REM print man/boat 

53646 GOSUB 78@6:REM sound fx 

365@ RETURN 

3666 : 
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3768 REM *¥#* move boat right #*** 

3718 LOCATE #2,charx,chary:PRINT#2," " 
3726 charx=charxti:IF charx>18 THEN char 
x=18 

3736 GOSUB 6@@@:REM print man/boaat 

3746 GOSUB 780@:REM sound fx 

3756 IF charx=18 THEN fetchflag=1i 

39768 RETURN 

S778: 

S6@G@ REM *##* rescue man ¥*¥#* 

5816 pilln=charx/2 

SS26 IF pilln<>INTCpilin?> QR charx>14 TH 
EN RETURN 

983@ IF carryflag=i1 THEN RETURN 

98486 IF safeflagtpilln>2=1 THEN RETURN 
3856 carryflag=l:safeflag(pillnd=1 

59866 remht=Stpillarh¢pilln>-levelt+pillar 
x 

3876 LOCATE #2,pillcx¢pillno+1,pillecy-pi 
Tich¢pilind-17 

3886 IF remht<@ THEN PRINT#2," " ELSE PE 
N #2,pastgreen:PRINT#2, bar 

3896 manink=redink:GOSUB 4686 

3906 mancol=red 

3716 incscore=1466-16*remht:GOSUB 774@:R 
EM inc score 

3926 GOSUB 790@:REM sound fx 

593@ RETURN 

s?746 : 

6666 REM **** print man and boat *¥*#% 
6616 PRINT#2, transont 

6626 INK 15,blueink 

663@ LOCATE #2,charx,chary:PEN#2,15:PRIN 
TH2, standmant 

6646 LOCATE #2,charx,chary:PEN#2,green:P 
RINT#2Z,boat¢ 

6656 INK 15,manink 

6666 PRINT#2, transoff#; 

6076 RETURN 

6086 : 

6166 REM #**# raise water level *#*# 
6114 DI 

612@ FOR pn= 1 TO 7? 

6136 MOVE pillarxtpn),level 
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414@ DRAUR 48,@6,water 

6156 FOR px=1 TO 5 

$166 PLOTR 2,1 

617@ NEXT px 

6186 IF levelomaxlev(pn? AND drownflaqtp 
n=@ AND safeflag¢pn)=@ THEN GOSUB 6349 
619@ NEXT pn 

620@ level=level+2 

6216 ENV 1,5,3,3,1.8,36,5,-2,18,9,-1,68, 
1,4,2@ 

6220 SOUND 2,0,0,6,1,4,15 

6236 GOSUB 326@:REM more pillarman ? 
6249@ El 

625@ RETURN 

6260 : 

63200 REM **¥** drowned man #*#* 

6310 IF safeflagtpnd=1 THEN RETURN 

6220 drownflag(pno=1 

6336 GOSUB 8@@@:REM sound fx 

634@ RETURN 

6356 : 

6400 REM **¥#* draw ladders #2 

641@ FOR lad=1 TO 3:GQSUB 65@@:NEXT lad 
64926 RETURN 

6436 : 

6506 REM *#** draw a ladder **#** 

6595 PEN deck¢(lad):LOCATE Ix¢lad),Ily¢lad 
d-11¢1lad>) :PRINT LEFT#(deck#, 12 

6567 PEN mancol 

$51@ MOVE glx¢lad)?,qlytlad) 

6520 DRAWR @,gl1l¢lad),black 

6536 MOVER 28,6 

6548 DRAWR @,-ql1l¢lad> 

65580 FOR ly=8 TO glltlad>?-8& STEP & 

6568 MOVER -28,8 

6576 DRAWR 25,6 

6586 NEXT ly 

4596 RETURN 

66660 : 

676@ REM **** convert char/qraph **** 
6710 graphx=32*charx-1é 

6726 graphy=3¢99-lée*chary 

6730 RETURN 

674@ : 
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6868 
6816 
$8286 
6836 
6848 
6856 
6866 
6876 
6888 
6896 
$706 
6716 
7666 
7616 
7626 
7838 
7646 
7656 
7666 
7676 


REM **** explode **** 

DI 

FOR i=1 TO 5 

FOR j=15 TO @ STEP -1 
LOCATE charx,chary 

PEN j:PRINT explode 

SOUND 4,6,2,5,0,8,J 

NEXT j,i 

LOCATE charx,chary:PRINT" " 
DI 

RETURN 

REM #*** draw pillars **** 
PEN #2,white 

FOR n=1 TO 7 

pillcol=red 

FOR i=@ TO pillarht(n)/2 
MOVE pillarx(n?,pillary+2#i 
DRAWR 48,8,pillcol 

IF pilltcol=red THEN pillcol=white E 


LSE pillcol=red 


788@ SOUND 4,161 ,2,5 

7696 NEXT i 

716@ FOR j=1 TO 5 

7116 MOVE pillarx(n)+48+2*j ,pillary+J 
7126 DRAWR @,pillarh(n>) ,pink 

7136 DRAWR -48,6,pastaqreen 

7146 NEXT j 

71i5@ PRINT#2, transont 

7166 LOCATE #2, pillex¢n2+1,pilley-pillch 
(nd-17 

7176 PRINT#2,standmant 

718@ PRINT#2, transof ft 

7196 NEXT n 

726@ RETURN 

7216 3: 

730G@ REM *#*% disable timers ***# 
7316 resetflag=@ 

7326 FOR i=@ TO 2:r=REMAINC i> :NEXT i 
7336 RETURN 

7346 : 

7466 REM **#*# enable timers *¥**% 

7416 EVERY moveint,@ GOSUB 356@:REM move 
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panels 
742@ EVERY riseint,i GOSUB 616@:REM rais 
e water level 
7436 RETURN 
74480 : 
7560@ REM draw walkway **®** 
751@ FOR y= 118 TO 120 STEP 2 
7526 MOVE @,y:DRAW 639,y,black 
7530 NEXT y 
7546 FOR y=31 TO 27 STEP -2 
7556 MOVE 576,y:DRAW 668,y,black 
7566 NEXT y 
7578 DRAW 688,118 
7580 FOR y=i22 TO 126 STEP 2 
7596 MOVE @,y:DRAW 639,y,mauve 
7606 NEXT y 
761@ RETURN 
7626 : 
7706 REM **** increase score ***## 
7716 PEN red 
7726 score=scoretincscore:scores=STRE( sc 


7736 lqth=LEN(score#) :score$=RIGHT#<(scor 
e$, 1 gth-1) 

7748 lqth=LEN‘ score) 

7758 score$=LEFTS$( zerot,é6—-lgth>+scores 
776@ LOCATE 14,1:PRINT score? 

7776 PEN mancol 

778@ RETURN 

7790 3: 

786@ REM **** move sound effect ***## 
7816 tone=140G+20*chary 

7826 SOUND 4,tone,5,5 

783@ RETURN 

784@ : 

797GG REM *#¥*¥* siren sound effect *##* 
7718 DI:FOR i=1 TO 2 

7926 FOR per=48@ TO 25@ STEP -5S 

7736 SOUND 1,per,2,5 

7746 SOUND 2,pert+i@6,2,5 

79356 NEXT per,i 

7766 SOUND 1,166,46,2 

7976 EIsRETURN 

7786 : 
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S866 


REM *#** drown sound efect x#x# 
DI:FOR per= 256 TO 446 STEP 5 
SOUND 1,per,3,5 

NEXT per 

EI:RETURN 


REM **#** end routine **** 
GOSUB 736@:REM disable timers 
INK 14,3,24 

CLS:PEN 14:REM flash 


814@ LOCATE 6,8:PRINT"Game Over" 

8156 LOCATE 6,9:PRINT"=========" 

8166 IF score#>hiscore$ THEN hi score#=sc 

ores 

8176 PEN black:LOCATE 1,12:PRINT"Hi Scor 
e:" 

818@ PEN red:LOCATE 13,12:PRINT hiscoret 
8196 PEN black:LOCATE 1,14:PRINT"Your Sc 
ore;:" 

8266 PEN red:LOCATE 13,14:PRINT score 

8216 PEN green:LOCATE 2,18:PRINT"Another 
Game ¢y/n)" 

8211 FOR p=606 TO 160 STEP -16 

8212 SOUND 1,p,2,5 

8213 NEXT p 

6226 anst="" 

823@ WHILE ans#<>"y" AND ans#<>"n" 

82496 anst=INKEYS 

825@ WEND 

8266 score=@:score#="":REM zero score 
8276 moveint=12:riseint=350:REM reset in 
t timers 

8286 GOSUB 310@:REM reset flags 


6296 IF anst="n" THEN endflag=i:CLS 

836@ RETURN 

8316 : 

S46@ REM *#** cursor control on ladders 
etc #¥* 

841@ IF INKEY(8>=6 THEN DI:GOSUB 46606:G0 


SUB 43@66:EI 


8426 


IF INKEY¢C1)=6 THEN D1:GOSUB 4166:G0 


SUB 4366:EI 


8436 


IF INKEYC1)<>@ AND INKEY(8)<¢>@ AND 
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ladflag=@ THEN DI:GOSUB 420@:GOSUB 4366: 


8446 RETURN 

8456 : 

85@0 REM *#** steer by cursor ®*#* 

8516 DI 

8526 IF INKEY¢8>=@ THEN GOSUB S6aa 

8536 IF INKEYC1>=6@ THEN GOSUB 5786 

8546 IF INKEY¢47)=@ THEN GOSUB Saaa 
8550 EI 

8566 RETURN 

8600 REM **** title board **** 

8641G PAPER 6:CLS 

8626 FOR x=@ TO 8 STEP 4 

8636 MOVE 34,256:MOVER x,x:GOSUB S716:RE 
M plot STRANDED 

864@ NEXT x 

8656 GOSUB %364:REM display choices 
846466 RETURN 

8670 : 

S760 REM *#** draw STRANDED **#* 

8716 REM ** letter s *¥* 

8726 DRAWR @,-16,3 

8730 DRAWR 36,@:DRAWR @,46:DRAWR -48,16 
874@ DRAWR @,16:DRAWR 44,@:DRAWR @,-8 
8756 DRAWR 8,4:DRAWR @6,16:DRAWR -56,6 
8740 DRAWR &,-32:DRAWR 48,-14:DRAWR 6,-2 
4 

8776 DRAWR -46,6:DRAWR &,&:DRAWR -8,@ 
8786 REM ** letter t ** 

8796 MOVER 36,-16:DRAWR 4,72 

88@@ DRAWR -16,@:DRAWR @,-8:DRAWR -8,& 
S61@ DRAWR @,14:DRAWR 56,4:DRAWR 6,-16 
8826 DRAWR -8,@:DRAWR @,8:DRAWR -16,4 
8836 DRAWR 6,-72:DRAWR -&,6@ 

884@ REM ** letter r *¥* 

685@ MOVER 48,8:DRAWR 6,86 

886@ DRAWR 356,@:DRAWR @,-32:DRAWRK -49.-1 
é 

8876 DRAWR 46,-16:DRAWR @,-14:DRAWR -8,& 
888@ DRAWR @,8:DRAWR -46,16:DRAWR 9,-24 
S8°@ DRAWR -&,6 

890@ MOVER 8,4@:DRAWR @,32:DRAWR 4@,6 
S710 DRAWR &@,-16:DRAWR -46,-16 
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8°26 REM ** letter a ** 

8936 MOVER 64,-46:DRAWR @6,52:DRAWR 28,28 
8°46 DRAWR 28,-28:DRAWR @,-52:DRAWR -8,6 
875@ DRAWR @,32:DRAWR -4@,@:DRAWR @,-32 
89466 DRAWR -8,@ 

8976 MOVER 8,4@:DRAWR &@,8:DRAWR 26,26 
8736 DRAWR 26,-20:DRAWR @,-8:DRAWR -46,8 
S°9G REM ** letter nm ¥* 

7O06 MOVER 64,-4@:DRAWR @,88:DRAWR 16,8 
7@1@ DRAWR 32,-72:DRAWR &@,72:DRAWR &,@ 
7426 DRAWR @,-86:DRAWR -16,0:DRAWR -32,7 
Z 

7036 DRAWR @,-72:DRAWR -S,6 

964@ REM *#** letter d **¥** 

7@5@ MOVER 72,6:DRAWR @,8@:DRAWR 46,4 
7468 DRAWR 14,-16:DRAWR @,-48:DRAWR -16, 
-1é4 

7076 DRAWR -46,6 

7086 MOVER &,&:DRAWR 6,464:DRAWR 28,4 
9490 DRAWR 12,-12:DRAWR 6,-40:DRAWR -12, 
-12 

7186 DRAWR -28,@ 

711i REM *#* letter e ¥*% 

9126 MOVER 64,-8:DRAWR @,8@:DRAWR 56,4 
713G@ DRAWR @6,-16:DRAWR -&8,6:DRAWR 4,8 
7148 DRAWR -46,@:DRAWR @,-32:DRAWR 24,86 
9iSG@ DRAWR @,&:DRAWR &,@:DRAWR @,-24 
9166 DRAWR -8,@:DRAWR @,8:DRAWR -24,0:DR 
AWR &,-24 

7i7G@ DRAWR 40,6:DRAWR &,8:DRAWR &,6 

7186 DRAWR @,-16:DRAWR -56,4 

FisG REM **® letter d ** 

9244 MOVER 72,@0:DRAWR @,8@:DRAWR 46,6 
7216 DRAWR 16,-16:DRAWR @,-48:DRAWR -16, 
-16 

72z6 DRAWR -46,6 

9238 MOVER 8,8:DRAWR @,464:DRAWR 28,6 
7246 DRAWR 12,-12:DRAWR &,-4@:DRAWR -12, 
-12 

7256 DRAWR -28,6 

9266 


7278 


RETURN 
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9306 REM **** diplay choices *##* 

9316 messt=CHRS(1649)9+" 1985 by S.W. Colw 
i11"+SPACE#(&) 

9328 messt=messt+messt 

933@ PEN 7:LOCATE 8,17:PRINT"PRESS" 

934@ LOCATE 7,20:PRINT" CONTROL" 

9356 PEN 12:LOCATE 3,18:PRINT"J for joys 
tick" 

9366 LOCATE 4,19:PRINT"c for cursor" 
9376 anst=""sc=1 

9386 WHILE ans#<>"j" AND ans#<>"c" 

939@ INK 3,c:REM change STRANDED ink 
7466 SOUND 1,INTCRND(1)#1666),5,5 

941@ LOCATE 1,13:PRINT MID#(mess#,c,20) 
9426 c=cti:IF c>3@ THEN c=1 

$436 FOR i=1 TO S@:NEXT:REM delay 

9444 anst=INKEYS 

745@ WEND 

9466 INK 3,6:REM reset ink colour 

9474 IF anst="j" THEN joyflag=1 ELSE joy 
flag=6 

9488 RETURN 
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INKEY key numbers 


“Reproduced with kind permission of Amsoft” 
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Appendix C 


BASIC error messages 


“Reproduced with kind permission of Amsoft” 


Error numbers and error messages 


When BASIC encounters a program statement, word or 
variable that it cannot understand or process, it will stop and 
display an error message. The form of the message will 
generally indicate what went wrong — and sometimes, if the 
error is a typographical error during program entry, BASIC 
will prompt in edit mode, with the line where the incorrect 
entry was made. 

The most popular error to greet the inaccurate typist is the 
Syntax Error (number 2), and BASIC prompts with the 
line to edit if encountered in program mode. In direct mode, it 
simply states that an error occured, and assumes that the last 
line typed is visible to spot the problem. 

If the ON ERROR GOTO command is included at the 
beginning of a program, it may refer the computer to a given 
line number when detecting an error. In the following 
example, the computer is referred to line 1000 when detecting 
an error: 


10 ON ERROR GOTO 1000 
program 


1000 PRINT CHR$C(7):MODE 2:INK 1,0: INK@,9: 
CUS. Ss LRSt 


Whereupon the CPC464 will beep, clear the current screen, 
change to a suitable colour combination for the 80 column 
display, and list the program ready for examination. If the 
error is a Syntax error it will appear at the foot of the 
listing, awaiting correction in the line edit mode, although the 
Syntax error message is suppressed. 

Remember to END the program on the last line before 1000 if 
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you wish to save the results on the screen. 

BASIC will not produce error messages for valid input — so it 
must be assumed that whenever an error does occur, it can be 
traced back to an error in the form of the program, usually 
guided by the message produced to help in the process of 
de-bugging. As with most things, you will learn most readily 
from your mistakes, so make the most of the fact that the 
CPC464 is the most tolerant of tutors: you will tire of trying 
long before the CPC464 loses its patience! 

All errors generated by BASIC are listed here, in error 
number order. The messages produced by BASIC are given, as 
well as a brief description of possible causes. 


1 Unexpected NEXT 


A NEXT command has been encountered while not ina FOR 
loop, or the control variable in the NEXT command does not 
match that in the FOR. 


2 Syntax Error 


BASIC cannot understand the given line because a construct 
within it is not legal. 


3 Unexpected RETURN 


A RETURN command has been encountered when not in a 
subroutine. 


4 DATA exhausted 


A READ command has attempted to read beyond the end of 
the last DATA. 


=| Improper argument 


This is a general purpose error. The value of a function’s 
argument, or a command parameter is invalid in some way. 


6 Overflow 


The result of an arithmetic operation has overflowed. This may 
be a floating point overflow, in which case some operation has 
yielded a value greater than 1.7E-38 (approx.). Alternatively, 
this may be the result of a failed attempt to change a floating 
point number to a 16 bit signed integer. 
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7 Memory full 


The current program or its variables may be simply too big, or 
the control structure is too deeply nested (nested GOSUBs, 
WHILEs or FORs). 

A MEMORY command will give this error if an attempt is 
made to set the top of BASIC’s memory too low, or to an 
impossibly high value. Note that an open cassette file has a 
buffer allocated to it, and that may restrict the values that 
MEMORY may use. 


8 Line does not exist 
The line referenced cannot be found. 
9 Subscript out of range 


One of the subscripts in an array reference is too big or too 
small. 


10 Array already dimensioned 


One of the arrays in a DIM statement has already been 
declared. 


11 Division by zero 


May occur in Real division, integer division, integer modulus 
or in exponentiation. 


12 Invalid direct command 
The last command attempted is not valid in Direct Mode. 
13 Type mismatch 


A numeric value has been presented where a string value is 
required, and vice versa, or an invalidly formed number has 
been found in READ or INPUT. 


14 String space full 


So many strings have been created that there is no further 
room available, even after ‘garbage collection’. 


15 String too long 


String exceeds 255 characters in length. May be generated by 
adding a number of strings together. 
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16 String expression too complex 


String expressions may generate a number of intermediate 
string values. When the number of these values exceeds a 
reasonable limit, BASIC gives up, and this error results. 


17 Cannot CONTinue 


For one reason or another the current program cannot be 
restarted using CONT. Note that CONT is intended for 
restarting after a STOP command, [ESC][ESC] or error, and 
that any alteration of the program in the meantime makes a 
restart impossible. 


18 Unknown user function 
No DEF FN has been executed for the FN just invoked. 
19 RESUME missing 


The end of the program has been encountered while in Error 
Processing Mode (ie in an ON ERROR GOTO routine). 


20 Unexpected RESUME 


RESUME is only valid while in Error Processing Mode (ie in 
an ON ERROR GOTO routine). 


21 Direct command found 


When loading a program from cassette a line without a line 
number has been found. 


22 Operand missing 
BASIC has encountered an incomplete expression. 
23 Line too long 


A line when converted to BASIC internal form becomes too 
big. 
24 EOF met 


An attempt has been made to read past end of file on the 
cassette input stream. 


25 File typeerror 


The cassette file being read is not of a suitable type. OPENIN 
is only prepared to open ASCII text files. LOAD, RUN etc, are 
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only prepared to deal with the file types produced by SAVE. 
26 NEXT missing 
Cannot find a NEXT to match a FOR command. 

27 File already open 


An OPENIN or OPENOUT command has been executed 
before the previously opened file has been closed. 


28 Unknown command 

BASIC cannot find a taker for an external command. 
29 WEND missing 

Cannot find a WEND to match a WHILE command. 
3@ Unexpected WEND 


Encountered a WEND when not in a WHILE loop, or a WEND 
that does not match the current WHILE loop. 


BASIC Keywords 


The following are the BASIC keywords, they are reserved and 
cannot be used as variable names. 


ABS, AFTER, AND, ASC, ATN, AUTO 
BINS, BORDER 


CALL, CAT, CHAIN, CHRS, CINT, CLEAR, CLG, 
CLOSEIN, CLOSEOUT, CLS, CONT, COS, CREAL 


DATA, DEF, DEFINT, DEFREAL, DEFSTR, DEG, 
DELETE, DI, DIM, DRAW, DRAWR 


EDIT, EI, ELSE, END, ENT, ENV, EOF, ERASE, 
ERL, ERR, ERROR, EVERY, EXP 


FIX, FN, FOR, FRE 
GOSUB, GOTO 
HEX$, HIMEM 


IF, INK, INKEY, INKEYS, INP, INPUT, INSTR, 
INT 


JOY 


Index 


AFTER 105 
Alternative character 
definition 52 
Amstradioids program 161 
Animation 

Animation and Control (chapter 
3) 35 

Animation demo #1 
program 46 
Animation demo #2 program 48 
Animation demo #3 program 50 
ASC 59 
ASCII code 59, 151, 153 
Attack, ofanote 127 


Ba-ba black sheep program 126 
BASIC Ideas (chapter 1) 1 
Binary system 9 

BINS 11 

Block structures 5 

BORDER 25 


Catch program 57 
Character set 39 
Channel status 126, 138 
Charset program 37 
CHR$_ 31, 36, 47, 151, 153 
Circles 79-82 
Colours 20,23 
Control characters 

Control Characters (chapter 
7) 151 

General use of 153 

Table of functions 152 
Conversion of coordinates 93 
COS 80, 86 


Decay, ofanote 127 
DEF FN 180 
Definable keys 
DI 116 
Doodle program 2 


180 


222 


Dottedlines 99 

DRAW 72 

Draw acircle program 79 
DRAWR 73 

Duration, ofanote 125 


Duration demo program 131 


EI 116 

Ellipses 78,80 

ENT 136 

ENV 128 

Envelope generator program 131 
Envelopes and duration 129 
ERL 183 

ERR 183 

Error handling demo 

program 183 

Error messages Appendix C 217 
EVERY 109 


FILL 97 

Filldemo program 97 
Findchar program 40 
Flags, use of 5,66 

FN 180 

FOR...NEXT 5 

FRAME 92 

Frame flyback 92 
Frequency, ofanote 125 


Gear change program 140 
GOSUB 47,182 

GOTO 2,4, 182 
GRAPHICS PAPER 99 
GRAPHICS PEN 99 


Hexadecimal system 9 

HEX$ 11 

High Resolution Graphics (chapter 
4) 70 


IF 179 


INK 20-24 

INKEY 54, 161 
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INKEY$ 54-63, 77 

INPUT 53 

Interrupt 

Interrupts (chapter5) 108 
demo program 110 
priorities 111 

priorities program 112 
problems program 113 
stopping interrupts 116 
timers 3, 100 

timing 115 

uses 116 


JOY 59 
Joystick 59, 60 


KEY 181 
KEY expansion codes 182 
Keyboard 53 


Lift off program 141 

Light cycles program 74 
LOCATE 25 

Logical AND demo program 159 
Logical plotting 158 


MASK 99 
Matrix 87 
MODE 19 
MOVE 72 
MOVER 73 


Noise 138 
Note 125 
Note table program 125 


Octave 125 

ON BREAK...GOSUB 183 
ON ERROR...GOTO 183 
ON SQ...GOSUB_ 140 
OR 12-17, 158, 159 


PAPER 20-24 

PEEK 17 

PEN 20-24 

Period, of anote 125 

Pitch, ofanote 125 

Pixel movement of characters 
program 91 
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Pixels 35,91, 94 

PLOT 71,95 

PLOTR 73 

POKE 17,40 

Positioning characters 25 
Program structure 2 
Programming Tips and Hints 
(chapter 8) 178 


Redundant plot demo program 96 
Release, of anote 127 

RELEASE 139 

REMAIN 111 

RENUM 181 

Renumbering programs 181 
RESUME 183 

Rotating figures 86-90 

Rotating figures program 89 


Screen display (chapter 2) 19 
Scrolling 154 
Shaping the sound 127 
SIN 80, 86 
Siren program 141 
Snake stomp program 156 
Sound 
SOUND 126 
Sound and Sound Effects 
(chapter6) 124 
Soundeffects 140 
Sound parameters 125 
Space Jazz program 141 
SPACE$ 31 
SPEED KEY 58 
SQ. 139 
Stranded program 
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